The function includes the following R packages be installed in the latest version: c("ggtree")
1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | library(basicPackages)
basicPackages::install.yyplot()
library(ggtree)
tree_text <- "(((((cow, (whale, dolphin)), (pig2, boar)), camel), fish), seedling);"
x <- read.tree(text=tree_text)
ggtree(x, linetype="dashed", color='firebrick') +
xlim(NA, 7) + ylim(NA, 8.5) +
geom_tiplab(aes(color=label), parse='emoji', size=14, vjust=0.25) +
labs(title="phylomoji", caption="powered by ggtree + emojifont")
p <- ggtree(x, layout='circular') +
geom_tiplab2(aes(color=label), parse='emoji', size=12, vjust=0.25)
print(p)
# https://guangchuangyu.github.io/software/ggtree/documentation/
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.