Thank you Brian,
Your suggestion helped me a bit but I am not quite there yet. Now I have the
following code:
library(cluster)
library(stats)
D<-matrix(nr=4,nc=4)
rownames(D)<-c("Node 1","Node 2","Node 3","Node 4")
D[1,]<-c(0,.6,.1,.7)
D[2,]<-c(.6,0,.3,.9)
D[3,]<-c(.1,.3,0,.9)
D[4,]<-c(.7,.9,.9,0)
C<-agnes(D,diss=T,method="complete")
DC<-as.dendrogram(C)
# Function for coloring labels
colLab <<- function(n){
if(is.leaf(n)){
a <- attributes(n)
i <<- i+1
attr(n, "nodePar") <- c(a$nodePar, list(lab.col = mycol[i]))
}
n
}
# Define vector with label colors
mycol<-vector(length=attributes(DC)$members)
for(i in 1:attributes(DC)$members){
mycol[i]<-"black"
}
mycol[3]<-"red"
i <- 0
dL <- dendrapply(DC, colLab)
plot(dL)
The remaining problems are:
1. I want to get rid of the little circles that are drawn at the end of each
branch.
2. How do I access the original nodes. E.g. in the example above I set
mycol[3]<-"red" which affects the third node in the tree which is Node 2. My
intention was to paint the label "Node 3" in red. When the tree is larger
this becomes a problem.
Sincerely
Henrik
--
View this message in context:
http://r.789695.n4.nabble.com/Color-individual-leaf-labels-in-dendrogram-tp2996982p2998322.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
