tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

some stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-12 10:03:32 +01:00
parent 365c322953
commit c6a720770d
4 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
scripts/functions/logoP_or.R
View file

@ -210,7 +210,8 @@ LogoPlotCustomH <- function(plot_df
, breaks = seq(0, (y_lim), by = y_axis_increment)
#, labels = seq(0, (y_lim), by = y_axis_increment)
, limits = c(0, y_lim)) +
labs(y=y_lab),
labs(y=y_lab),
NULL,
ggplot(data=unique_colour_map2, aes(
x=factor(position), 0 # heat-mapped distance tiles along the bot
, fill = position
@ -239,7 +240,7 @@ LogoPlotCustomH <- function(plot_df
, legend.position = leg_pos
, legend.direction = leg_dir
#, plot.background = element_blank()
, plot.margin = margin(t=0,b=0)
, plot.margin = margin(t=0,b=1)
, panel.grid=element_blank()
, plot.background = element_rect(fill = theme_bgc, colour=NA)
, panel.background = element_rect(fill = "transparent", colour=NA)
@ -252,7 +253,7 @@ LogoPlotCustomH <- function(plot_df
labs(y = NULL), NULL,
position_annotation(plot_df, bg=theme_bgc),
ncol=1, align='v', rel_heights = c(16,1,-0.1, 1)
ncol=1, align='v', rel_heights = c(16,0,1,0,1)
)
}
#LogoPlotCustomH(small_df3)