gene<-read.table("1.txt",header=T,sep='')

hc = hclust(dist(gene))

hcd = as.dendrogram(hc)

plot(hcd)

colLab <- function(n) {

    if (is.leaf(n)) {

        a <- attributes(n)

        labCol <- labelColors[clusMember[which(names(clusMember) == a$label)]]

        attr(n, "nodePar") <- c(a$nodePar, lab.col = labCol)

    }

n

}

clusDendro = dendrapply(hcd, colLab)

plot(clusDendro, main = "Cool Dendrogram", type = "rectangle")