Mercurial > repos > artbio > mutational_patterns

diff mutational_patterns.R @ 7:34626b2b9907 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/mutational_patterns commit a9c23b9c740ae50087777e336b4775e1f8035261"
author artbio
date Fri, 16 Oct 2020 10:00:41 +0000
parents 2c1d58f5c296
children e0dad46148bf
line wrap: on
line diff
--- a/mutational_patterns.R	Fri Oct 09 17:06:51 2020 +0000
+++ b/mutational_patterns.R	Fri Oct 16 10:00:41 2020 +0000
@@ -271,7 +271,7 @@
                theme(panel.grid.minor.x = element_blank(), panel.grid.major.x = element_blank(), legend.position="right",
                      text = element_text(size=8),
                      axis.text.x = element_text(angle=90, hjust=1)) + 
-               facet_grid(~level, scales = "free_x")
+               facet_grid(~level, scales = "free_x", space="free")
         pc4_data <- pc4$data
         pc4_data <- merge (pc4_data, metadata_table[,c(1,3)], by.x="Sample", by.y="element_identifier")
         pc4 <- ggplot(pc4_data, aes(x=Sample, y=Contribution, fill=as.factor(Signature))) +
@@ -282,7 +282,7 @@
                theme(panel.grid.minor.x = element_blank(), panel.grid.major.x = element_blank(), legend.position="right",
                      text = element_text(size=8),
                      axis.text.x = element_text(angle=90, hjust=1)) + 
-               facet_grid(~level, scales = "free_x")
+               facet_grid(~level, scales = "free_x", space="free")
     }
     # Combine the two plots:
     grid.arrange(pc3, pc4, top = textGrob("Absolute and Relative Contributions of Cosmic signatures to mutational patterns",gp=gpar(fontsize=12,font=3)))