r-如何将colored_bars添加到我设置horiz=T的树状图中

Question

我知道如何将彩色条形图添加到树状图中，但当我设置horiz=T时，条形图绘制在错误的轴上。

树枝状延伸简介中的示例显示了如何在绘图中添加彩色条：

dend15 <- c(1:5) %>% dist %>% hclust(method = "average") %>% as.dendrogram
is_odd <- ifelse(labels(dend15) %% 2, 2,3)
is_345 <- ifelse(labels(dend15) > 2, 3,4)
is_12 <- ifelse(labels(dend15) <= 2, 3,4)
k_3 <- cutree(dend15,k = 3, order_clusters_as_data = FALSE) 
# The FALSE above makes sure we get the clusters in the order of the
# dendrogram, and not in that of the original data. It is like:
# cutree(dend15, k = 3)[order.dendrogram(dend15)]
the_bars <- cbind(is_odd, is_345, is_12, k_3)
the_bars[the_bars==2] <- 8
dend15 %>% plot(horiz=F)
colored_bars(colors = the_bars, dend = dend15)

当我执行上面的代码时，我看到了这个图：

彩色条形图是的好例子

但是，当我键入时

dend15 %>% plot(horiz=T) 
colored_bars(colors = the_bars, dend = dend15)

这就是我看到的：

彩色条形图不良示例

是否可以将彩色条移动到树的叶节点旁边的轴上？

Answer 1

也许这段代码（取自此处）可以帮助您：

par(mar = c(4,1,1,12))
plot(dend15, horiz = TRUE)
colored_bars(dend15, colors = the_bars, horiz = TRUE)

祝你好运！