其他
漫画版的进化树你见过吗？
ggtree 牛逼的地方，还不止于ggtree本身，而是整个R社区有各种包，可以互相扩展功能。
这一次介绍和comicR包一起玩，可以让进化树变成卡通，就像xkcd一样。
library(htmltools)
library(XML)
library(gridSVG)
library(comicR)
library(ggplot2)
library(ggtree)
p <- ggtree(rtree(30), layout="fan") +
geom_text(aes(label=label, angle=angle), size=5, color="purple", vjust=-0.3)
p
svg <- grid.export(name="")$svg
tagList(
tags$div(
id = "ggtree_comic",
tags$style("#ggtree_comic text {font-family:Chalkduster;}"),
HTML(saveXML(svg)),
comicR("#ggtree_comic", ff=5)
)
) %>% html_print