R和rect.hclust：树状图标签上的矩形
阿拉坦富根
我是第一次构建树状图，并且簇周围的矩形绘制在标签的顶部。您知道如何修改这些标签的位置以避免这种重叠吗？
在这里，您可以找到我的代码的有效示例：
mydata <- c(9.45, 10.54, 10.36, 10.46, 10.78, 10.1, 11.13)
mydata.matrix <- matrix(mydata, nrow = 1, ncol = 7)
colnames(mydata.matrix) <- c("a", "b", "c", "d", "e", "f", "g")
rownames(mydata.matrix) <- c("X")
d <- dist(mydata.matrix["X", ], method = "euclidean")
fit <- hclust(d, method="ward.D")
nodePar <- list(lab.cex = 0.6, pch = c(NA, 19), cex = 0.7, col = "blue")
plot(as.dendrogram(fit), xlab = "", sub="", ylab = "Euclidean distance",
main = "Dendrogram", nodePar = nodePar)
rect.hclust(fit, k=2, border="red")
这是上面代码的图：
我特别希望红色矩形完全包含树状图叶子的标签。
谢谢！
塔尔·加利利（Tal Galili）
您应该使用dendextend包中的rect.dendrogram函数。
例如：
mydata <- c(9.45, 10.54, 10.36, 10.46, 10.78, 10.1, 11.13)
mydata.matrix <- matrix(mydata, nrow = 1, ncol = 7)
colnames(mydata.matrix) <- c("a", "b", "c", "d", "e", "f", "g")
rownames(mydata.matrix) <- c("X")
d <- dist(mydata.matrix["X", ], method = "euclidean")
fit <- hclust(d, method="ward.D")
nodePar <- list(lab.cex = 0.6, pch = c(NA, 19), cex = 0.7, col = "blue")
dend <- as.dendrogram(fit)
plot(dend, xlab = "", sub="", ylab = "Euclidean distance",
main = "Dendrogram", nodePar = nodePar)
library(dendextend)
rect.dendrogram(dend , k=2, border="red")
您将获得： 
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在R中更改树状图标签
- 2
树状图标签重叠
- 3
R中的水平树状图的树状切割和簇周围的矩形
- 4
geom_rect和图例，显示矩形的宽度
- 5
hclust 和 ggplot r
- 6
在R中的标签上添加标签
- 7
除去标签上的顶部和底部空间
- 8
Material Component Web - 标签上方带有图标的选项卡和仅限于内容的指示器
- 9
R图标签格式
- 10
R：自定义树状图-不同的休假节点颜色和类型（按标签）
- 11
使用猿猴笼包装对R中的标签和彩色叶片树状图（系统发育）
- 12
JavaFX：具有自定义边界rect和paint方法的矩形
- 13
R：行和列标签上的数据框的子集的平均值
- 14
如何在R中的条形图上的标签上添加$符号？[包含图片和代码]
- 15
R：行和列标签上的数据框的子集的平均值
- 16
从R中的树状图提取标签成员资格/分类（即：树状图的树皮函数）
- 17
Kivy 拖动行为标签和矩形
- 18
如何在标签上显示经度和纬度
- 19
img标签上的背景尺寸和背景位置
- 20
JDBC，Oracle SQL，在标签上添加和显示图片
- 21
改善下标和上标在节点标签上的定位
- 22
在networkx / plotly网络和标签上间隔节点
- 23
在我的元素标签上添加和删除其他类
- 24
如何在标签上显示经度和纬度
- 25
Viewpager禁用滑动和标签上的最后一页
- 26
如何根据树状图中形成的簇将hclust的标签放在表中
- 27
绘图R中x轴标签上的颜色
- 28
R：带有ggupset和hrbrthemes :: theme_upsum（）的ggplot2图：x轴标签上出现多余的“ at”
- 29
如何创建不带标签的矩形图标按钮？
我来说两句