outputting svg for plots with stats

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

View file

@ -22,9 +22,9 @@ source("plot_data.R")
#=============
# 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
pdf(output_boxplot_stats, width=22, height=16)
svg(output_boxplot_stats, width=22, height=16)
###############################################################
#===============================
# 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
, "\n========================================================\n")
plots_sam = doMyPlots(lf_fp_sam)
plots_sam = doMyPlotsStats(lf_fp_sam)
sam_plot = ggpubr::ggarrange(plotlist = plots_sam
, align = "hv"
, ncol = 7