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 +#