ggplot2作图之系统发育树

library(ape)
tree <- read.tree(text="((((A,B,C,D)),((E,F),(G,H))),(((I,J),(K,L)),(((M,N,O),P))));")

library(ggtree)
ggtree(tree, branch.length = "none",ladderize = TRUE,size=2) + 
  #geom_tiplab(size=5, align=TRUE, linesize=.5,label.offset=1.5) + 
  xlim(0,10)

ggtree(tr = tree,layout="circular")+##### branch.length = "none")+
       geom_tree(size = 2.5)+
         geom_nodepoint(size = 6)+
         geom_tiplab(size = 5)