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

rpob

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-29 18:23:43 +01:00
parent 6441be21ab
commit 8f97ab7cc8
4 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/functions/logoP_or.R
View file

@ -79,11 +79,12 @@ LogoPlotCustomH <- function(plot_df
#-------------------
if (y_axis_log){
log_colname = paste0("log_", y_axis_colname)
plot_df[log_colname] = log_value(plot_df[y_axis_colname])
log_colname = paste0("log10_", y_axis_colname)
#plot_df[log_colname] = log_value(plot_df[y_axis_colname])
#plot_df[[log_colname]] = log10(plot_df[y_axis_colname])
logo_df = plot_df[, c(x_axis_colname, symbol_colname, log_colname)]
logo_df_plot = logo_df[, c(x_axis_colname, symbol_colname, log_colname)]
logo_df_plot = logo_df_plot %>% spread(x_axis_colname, y_axis_colname, fill = 0.0)
logo_df_plot = logo_df_plot %>% spread(x_axis_colname, log_colname, fill = 0.0)
rownames(logo_df_plot) = logo_df_plot$mutant_type
logo_df_plot$mutant_type = NULL
logo_dfP_wf=as.matrix(logo_df_plot)
@ -151,15 +152,15 @@ LogoPlotCustomH <- function(plot_df
ytt_col = "black"
}
if (y_axis_log){
if (grepl("Log", y_lab)){
y_lab = y_lab
}else{
y_lab = paste("Log", y_lab)
}
}
# if (y_axis_log){
#
# if (grepl("Log", y_lab)){
# y_lab = y_lab
#
# }else{
# y_lab = paste("Log", y_lab)
# }
# }
plot_grid(
ggplot() +
geom_logo(logo_dfP_wf