# HG changeset patch # User artbio # Date 1602842441 0 # Node ID 34626b2b99075e9cb1b73fe51e8d3f560ea62e76 # Parent 2c1d58f5c296ccfc8a8791d832a162fe43ce4dd1 "planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/mutational_patterns commit a9c23b9c740ae50087777e336b4775e1f8035261" diff -r 2c1d58f5c296 -r 34626b2b9907 mutational_patterns.R --- 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))) diff -r 2c1d58f5c296 -r 34626b2b9907 mutational_patterns.xml --- a/mutational_patterns.xml Fri Oct 09 17:06:51 2020 +0000 +++ b/mutational_patterns.xml Fri Oct 16 10:00:41 2020 +0000 @@ -1,4 +1,4 @@ - + from genomic variations in vcf files bioconductor-mutationalpatterns diff -r 2c1d58f5c296 -r 34626b2b9907 test-data/cosmic_output1.pdf Binary file test-data/cosmic_output1.pdf has changed diff -r 2c1d58f5c296 -r 34626b2b9907 test-data/cosmic_output2.pdf Binary file test-data/cosmic_output2.pdf has changed