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)
05-10
4561

06-18
907

03-12