time scale

[zuranojp]

Hi Guangchuan,

Can you add an option into the theme_tree2() function to show time scale as Reverse axis in Figtree or like AxisPhylo() function.

require(ape)
tr <- rtree(10)
ggtree(tr) + theme_tree2()

I´m suggesting to show the time whether possible like

tr <- rtree(10)
plot(tr)
axisPhylo()

[GuangchuangYu]

> p =ggtree(tr) + theme_tree2()
> p1 = revts(p)
> p2 = p1 + scale_x_continuous(breaks=c(-4:0), labels=abs(-4:0))
> multiplot(p, p1, p2, ncol=3)

revts function is now available in github version.

[Ax3man]

For future visitors, passing abs as the labels is probably easiest in most cases:

p <- ggtree(tr) + theme_tree2() + scale_x_continuous(labels = abs)
multiplot(p, revts(p), ncol = 2)

[GuangchuangYu]

@Ax3man thanks for the tip.