r - 具有层次聚类的堆积条形图(树状图)

Question

我正在尝试获得类似的东西，但不幸的是，我找不到任何可以使我使用树状图绘制堆积条形图的包，如下所示:

有人知道怎么做吗？

Answer 1

第一次尝试找到答案 - 但需要更多的工作才能使其真正发挥作用。具体来说，需要更仔细地考虑元素位置的对齐(以及它们的顺序)。

# library
library(ggplot2)

# create a dataset
specie=c(rep("sorgho" , 3) , rep("poacee" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
condition=rep(c("normal" , "stress" , "Nitrogen") , 4)
value=abs(rnorm(12 , 0 , 15))
data=data.frame(specie,condition,value)


dend <- as.dendrogram(hclust(dist(with(data, tapply(value, specie, mean)))))

data$specie <- factor(data$specie, levels = labels(dend))

# Stacked Percent
library(dendextend)
p1 <- ggplot(dend, horiz = T) 
p2 <- ggplot(data, aes(fill=condition, y=value, x=specie)) + 
    geom_bar( stat="identity", position="fill") + coord_flip()

library(cowplot)
plot_grid(p1, p2, align = "h")