From 22be845e1f97bd34f4c5f421223985ac78b908ca Mon Sep 17 00:00:00 2001 From: Tanushree Tunstall Date: Fri, 12 Aug 2022 10:04:35 +0100 Subject: [PATCH] added ggpairs code --- scripts/plotting/plotting_thesis/corr_plots_thesis.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scripts/plotting/plotting_thesis/corr_plots_thesis.R b/scripts/plotting/plotting_thesis/corr_plots_thesis.R index c4316bd..551fee3 100644 --- a/scripts/plotting/plotting_thesis/corr_plots_thesis.R +++ b/scripts/plotting/plotting_thesis/corr_plots_thesis.R @@ -319,7 +319,9 @@ if (tolower(gene)%in%geneL_na){ svg('/tmp/foo.svg', width=10, height=10, ) -ggpairs(corr_df_ps, columns = 1:(ncol(corr_df_ps)-corr_end) +corr_plotting_df = corr_df_ps + +ggpairs(corr_plotting_df, columns = 1:(ncol(corr_plotting_df)-corr_end) , upper = list(continuous = wrap('cor', method = "spearman")) , aes(colour = factor(dst_mode), alpha = 0.5) , title="correlogram with ggpairs()") + @@ -330,4 +332,4 @@ ggpairs(corr_df_ps, columns = 1:(ncol(corr_df_ps)-corr_end) dev.off() -# \ No newline at end of file +#