#sorry
#下面的程序望各位大神过目
np<-list(col=3:2,cex=c(2.0,0.75),pch=21:22,bg=c("light blue","pink"),
lab.cex=1.0,lab.col="tomato")
addE<-function(n){
if(!is.leaf(n)){
attr(n,"edgePar")<-list(p.col="plum")
attr(n,"edgetext")<-paste(attr(n,"members"),"members")
}
n
}
de<-dendrapply(dend,addE)
plot(de,nodePar=np)
扫码加好友，拉您进群
全部版块
我的主页
收藏
