Próbuję stworzyć dendrogram, jeśli moje próbki mają 5 kodów grupowych (działają jako nazwa próbki / gatunek / etc, ale są powtarzalne).

Dlatego mam dwie kwestie, które będą świetne:

Jak mogę wyświetlić kody grup w etykiecie liścia (zamiast numeru próbki)?

Chciałbym przypisać kolor każdej grupie kodu i pokolorować etykietę liścia zgodnie z nią (może się zdarzyć, że nie będą w tym samym kladzie i dzięki temu mogę znaleźć więcej informacji)?

Czy można to zrobić za pomocą mojego skryptu, aby to zrobić (ape lub ggdendro):

sample<-read.table("C:/.../DOutput.txt", header=F, sep="")
groupCodes <- sample[,1]
sample2<-sample[,2:100] 
d <- dist(sample2, method = "euclidean")  
fit <- hclust(d, method="ward")
plot(as.phylo(fit), type="fan") 
ggdendrogram(fit, theme_dendro=FALSE)  

Losowa ramka danych, która zastąpi moją tabelę odczytu:

sample = data.frame(matrix(floor(abs(rnorm(20000)*100)),ncol=200))
groupCodes <- c(rep("A",25), rep("B",25), rep("C",25), rep("D",25)) # fixed error
sample2 <- data.frame(cbind(groupCodes), sample)