Mercurial > repos > dfornika > render_tree

comparison render_tree.R @ 2:96406ba2696b draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/dfornika/galaxytools/tree/master/tools/render_tree commit 8898f2229ec13917b7d96e20725f3871d9d93e90-dirty
author dfornika
date Sat, 29 Jun 2019 00:54:28 -0400
parents 9f0241ee55e8
children
comparison
equal deleted inserted replaced
1:9f0241ee55e8 2:96406ba2696b
1 #!/usr/bin/env Rscript 1 #!/usr/bin/env Rscript
2
3 library(grid)
2 4
3 suppressMessages( 5 suppressMessages(
4 library(ggtree) 6 library(ggtree)
5 ) 7 )
6 8
9 tree <- read.tree(args[1]) 11 tree <- read.tree(args[1])
10 12
11 tree_plot <- ggplot(tree, aes(x, y)) + 13 tree_plot <- ggplot(tree, aes(x, y)) +
12 geom_tree() + 14 geom_tree() +
13 theme_tree2() + 15 theme_tree2() +
14 geom_tiplab(align=TRUE) 16 geom_tiplab(size=3, align=TRUE, hjust=-0.1) + ggplot2::xlim(0, 0.08) +
17 geom_tippoint() +
18 theme(plot.margin=unit(c(1,1,1,1),"cm"))
15 19
16 suppressMessages( 20 suppressMessages(
17 ggsave(args[2], plot=tree_plot, device="png") 21 ggsave(args[2], plot=tree_plot, device="png")
18 ) 22 )