帮助文档

这个包还有很多没有理解，以后再说

library(ggtree)
require(ape)

cs <- read.table(file = "cs.txt", sep = "\\t", header = T)
cs <- scale(cs)
rownames(cs)<-cs[,1]
cs <- cs[,2:27]
cs <- t(cs)
cs <- scale(cs) #数据标准化
hc <- hclust(dist(cs), method = "ward.D") #method方法可以多选

plot(hc)

ggtree(hc, layout='dendrogram') +
    geom_tiplab(hjust=0.5, vjust=1, show.legend=T,size=3)

node