outputting svg for plots with stats
This commit is contained in:
parent
b94d9a3fdb
commit
f14c7ca64b
2 changed files with 5 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue