comparison mutational_patterns.R @ 26:af5c65ad5317 draft

planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/mutational_patterns commit bc7fab3050541155f0c3e15b7f448a1802155670
author artbio
date Tue, 12 Jul 2022 17:44:09 +0000
parents b00fef2b1c2c
children 9a33a5a90a2c
comparison
equal deleted inserted replaced
25:b00fef2b1c2c 26:af5c65ad5317
487 xlab("") + 487 xlab("") +
488 # Reverse order of the samples such that first is up 488 # Reverse order of the samples such that first is up
489 # xlim(rev(levels(factor(cos_sim_ori_rec$sample)))) + 489 # xlim(rev(levels(factor(cos_sim_ori_rec$sample)))) +
490 theme_bw() + 490 theme_bw() +
491 theme(panel.grid.minor.y = element_blank(), 491 theme(panel.grid.minor.y = element_blank(),
492 panel.grid.major.y = element_blank()) + 492 panel.grid.major.y = element_blank(),
493 axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
494 ) +
493 # Add cut.off line 495 # Add cut.off line
494 geom_hline(aes(yintercept = .95)) 496 geom_hline(aes(yintercept = .95))
495 grid.arrange(p9, top = textGrob("Similarity between true profiles and profiles reconstructed with elementary signatures", gp = gpar(fontsize = 12, font = 3))) 497 grid.arrange(p9, top = textGrob("Similarity between true profiles and profiles reconstructed with elementary signatures", gp = gpar(fontsize = 12, font = 3)))
496 dev.off() 498 dev.off()
497 } 499 }