gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-01 12:35:42 24 4
gpt4 key购买 nike

我了解如何将彩色条添加到 dendextend 图,但是当我设置 horiz=T 时,条绘制在错误的轴上。

dendextend 简介中的示例展示了如何向图中添加彩色条:

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)

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

colored_bars plot good example

但是,当我输入

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

这是我看到的:

colored_bars plot bad example

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

最佳答案

也许这段代码(取自 here )可以帮助您:

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

祝你好运!

关于r - 如何将 colored_bars 添加到我设置 horiz=T 的 dendextend 图中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33681321/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com