diff --git a/boxplot_stat_linear.R b/boxplot_stat_linear.R index 19a8c2c..9517258 100755 --- a/boxplot_stat_linear.R +++ b/boxplot_stat_linear.R @@ -22,9 +22,9 @@ source("plot_data.R") #============= # 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 -pdf(output_boxplot_stats, width=22, height=16) +svg(output_boxplot_stats, width=22, height=16) ############################################################### #=============================== # data assignment for plots diff --git a/boxplot_stat_log.R b/boxplot_stat_log.R index 5715b4c..528073c 100755 --- a/boxplot_stat_log.R +++ b/boxplot_stat_log.R @@ -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