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

outputting svg for plots with stats

Browse source
This commit is contained in:
Tanushree Tunstall 2020-11-02 17:20:38 +00:00
parent b94d9a3fdb
commit f14c7ca64b
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
boxplot_stat_linear.R
View file

@ -22,9 +22,9 @@ source("plot_data.R")
#============= #=============
# Output # Output
#============= #=============
outfile_bp = paste0("boxplots_stats_all", ".pdf") outfile_bp = paste0("boxplots_stats_all-%03d.svg")
output_boxplot_stats = paste0(outdir_plots, outfile_bp); output_boxplot_stats output_boxplot_stats = paste0(outdir_plots, outfile_bp); output_boxplot_stats
pdf(output_boxplot_stats, width=22, height=16) svg(output_boxplot_stats, width=22, height=16)
############################################################### ###############################################################
#=============================== #===============================
# data assignment for plots # data assignment for plots

6
boxplot_stat_log.R
View file

@ -22,9 +22,9 @@ source("plot_data.R")
#============= #=============
# Output # Output
#============= #=============
outfile_bp = paste0("boxplots_stats_all_LOG", ".pdf") outfile_bp = paste0("boxplots_stats_all_LOG-%03d.svg")
output_boxplot_stats = paste0(outdir_plots, outfile_bp); output_boxplot_stats output_boxplot_stats = paste0(outdir_plots, outfile_bp); output_boxplot_stats
pdf(output_boxplot_stats, width=22, height=16) svg(output_boxplot_stats, width=22, height=16)
############################################################### ###############################################################
#=============================== #===============================
# data assignment for plots # data assignment for plots
@ -106,7 +106,7 @@ fp_sam = length(unique(lf_fp_sam$mosaic)); fp_sam
cat("\nPlotting boxplots with stats for:", title_sam cat("\nPlotting boxplots with stats for:", title_sam
, "\n========================================================\n") , "\n========================================================\n")
plots_sam = doMyPlots(lf_fp_sam) plots_sam = doMyPlotsStats(lf_fp_sam)
sam_plot = ggpubr::ggarrange(plotlist = plots_sam sam_plot = ggpubr::ggarrange(plotlist = plots_sam
, align = "hv" , align = "hv"
, ncol = 7 , ncol = 7