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

renamed other_plots.R to other_plots_combined.R and changing labels to capital letters for journal

Browse source
This commit is contained in:
Tanushree Tunstall 2020-10-09 12:17:24 +01:00
parent bf3e830f64
commit e91d704929
4 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
scripts/plotting/basic_barplots_combined.R
View file

@ -29,7 +29,8 @@ svg(plot_basic_bp_combined_labelled , width = 12, height = 12 )
bp_duet_combined = cowplot::plot_grid(OutPlot_count, OutPlot_pos_count bp_duet_combined = cowplot::plot_grid(OutPlot_count, OutPlot_pos_count
, OutPlot_lig_count, OutPlot_lig_pos_count , OutPlot_lig_count, OutPlot_lig_pos_count
, labels = c("(a)", "(b)", "(c)", "(d)") #, labels = c("(a)", "(b)", "(c)", "(d)")
, labels = "AUTO"
, label_size = 25) , label_size = 25)
bp_duet_combined bp_duet_combined

3
scripts/plotting/lineage_dist_dm_om_combined_PS.R
View file

@ -372,7 +372,8 @@ plot_lineage_dist_combined_dm_om_L
svg(plot_lineage_dist_combined_dm_om_L, width = 12, height = 6) svg(plot_lineage_dist_combined_dm_om_L, width = 12, height = 6)
OutPlot2 = cowplot::plot_grid(p1, p2 OutPlot2 = cowplot::plot_grid(p1, p2
, labels = c("(a)", "(b)") #, labels = c("(a)", "(b)")
, labels = "AUTO"
#, label_x = -0.045, label_y = 0.92 #, label_x = -0.045, label_y = 0.92
#, hjust = -0.7, vjust = -0.5 #, hjust = -0.7, vjust = -0.5
#, align = "h" #, align = "h"

3
scripts/plotting/logo_combined.R
View file

@ -269,7 +269,8 @@ svg(plot_logo_combined_labelled, width = 25, height = 10)
OutPlot2 = cowplot::plot_grid(logo_or, p1, p3 OutPlot2 = cowplot::plot_grid(logo_or, p1, p3
, nrow = 3 , nrow = 3
, align = "hv" , align = "hv"
, labels = c("(a)","(b)", "(c)") #, labels = c("(a)","(b)", "(c)")
, labels = "AUTO"
, rel_heights = c(3/8, 3/8, 1.5/8) , rel_heights = c(3/8, 3/8, 1.5/8)
, rel_widths = c(0.85, 1, 1) , rel_widths = c(0.85, 1, 1)
, label_size = 25) , label_size = 25)

26
scripts/plotting/other_plots.R → scripts/plotting/other_plots_combined.R
View file

@ -24,12 +24,11 @@ plot_dr_other_combined = paste0(plotdir,"/", dr_other_combined)
dr_other_combined_labelled = "dr_other_muts_labelled.svg" dr_other_combined_labelled = "dr_other_muts_labelled.svg"
plot_dr_other_combined_labelled = paste0(plotdir,"/", dr_other_combined_labelled) plot_dr_other_combined_labelled = paste0(plotdir,"/", dr_other_combined_labelled)
#dr_other_foldx = "dr_other_muts_foldx.svg"
#plot_dr_other_foldx = paste0(plotdir,"/", dr_other_foldx)
dr_other_foldx = "dr_other_muts_foldx.svg" #point_legend = "point_legend.svg"
plot_dr_other_foldx = paste0(plotdir,"/", dr_other_foldx) #plot_point_legend = paste0(plotdir,"/", point_legend)
point_legend = "point_legend.svg"
plot_point_legend = paste0(plotdir,"/", point_legend)
######################################################################## ########################################################################
# end of data extraction and cleaning for plots # # end of data extraction and cleaning for plots #
######################################################################## ########################################################################
@ -218,7 +217,9 @@ svg(plot_dr_other_combined, width = 24, height = 12)
# first combine fold and lig plots (2 and 3) # first combine fold and lig plots (2 and 3)
c1 = cowplot::plot_grid(p2, p3 c1 = cowplot::plot_grid(p2, p3
, labels = c("(b)", "(c)") #, labels = c("(b)", "(c)")
, labels = c("B", "C")
, hjust = -2
, label_size = 25 , label_size = 25
, nrow = 1 , nrow = 1
, rel_widths = c(1/6, 5/6)) , rel_widths = c(1/6, 5/6))
@ -237,7 +238,10 @@ plot_dr_other_combined_labelled
Outplot_labelled = cowplot::plot_grid(p1, c1 Outplot_labelled = cowplot::plot_grid(p1, c1
, nrow = 2 , nrow = 2
, labels = c("(a)", "", "") #, labels = c("(a)", "", "")
, labels = c("A", "", "")
, hjust = -2
#, vjust = 0
, label_size = 25) , label_size = 25)
print(Outplot_labelled) print(Outplot_labelled)
@ -248,10 +252,10 @@ dev.off()
#--------- #---------
# plot 3: legend # plot 3: legend
#--------- #---------
svg(plot_point_legend, width = 6, height = 7) #svg(plot_point_legend, width = 6, height = 7)
OutPlot3 = legend #OutPlot3 = legend
print(OutPlot3) #print(OutPlot3)
dev.off() #dev.off()