如何调整R中树状图标签的偏移、对齐与内边距

针对你遇到的树状图标签模糊、布局不合理的问题，以下是基于factoextra和ggplot2的调整方案，可保留彩色聚类样式并兼容plotly交互缩放：

修改后的完整代码 #

library(factoextra)
library(ggplot2)
library(plotly)

# 数据缩放与聚类
num_data_scaled <- scale(num_data)
res.hc <- eclust(num_data_scaled, FUNcluster = "hclust", hc_metric = "euclidean", hc_method = "ward.D2", k = 6)
fviz_cluster(res.hc, geom = "point")

# 生成基础树状图并调整布局
p <- fviz_dend(res.hc, horiz = TRUE, cex = 0.6)

# 1. 调整标签：左对齐 + 向右偏移
# 修改标签图层的对齐方式与位置
p$layers[[2]]$aes_params$hjust <- 0  # 设置标签左对齐
p$layers[[2]]$position <- position_nudge(x = 0.15)  # 向右偏移标签，可根据实际调整偏移量

# 2. 增加上下内边距，预留标签空间
p <- p +
  theme(
    plot.margin = margin(t = 25, b = 25, l = 20, r = 80),  # 上下内边距设为25pt，右侧预留标签空间
    axis.text.y = element_text(margin = margin(r = 10))  # 标签与y轴的间距
  )

# 转为plotly交互图，支持缩放
ggplotly(p)

关键调整说明 #

• 标签左对齐与偏移：fviz_dend生成的树状图中，标签对应第2个图层（layers[[2]]），通过hjust=0实现左对齐，position_nudge(x=0.15)让标签沿x轴向右偏移，偏移量可根据你的树状图大小自行调整。
• 上下内边距优化：plot.margin参数设置图表整体的空白区域，t（上）和b（下）设为25pt增加上下内边距，r（右）预留足够空间避免偏移后的标签被截断。
• 样式保留与交互兼容：所有调整基于原fviz_dend的输出，不会破坏彩色聚类样式；修改后的ggplot对象可直接通过ggplotly()转为交互图，支持缩放操作。

备选方案（使用gginnards包简化图层修改） #

如果直接修改图层索引不够直观，可使用gginnards包的edit_layer函数：

library(gginnards)

p <- fviz_dend(res.hc, horiz = TRUE, cex = 0.6) %>%
  edit_layer(
    layer = 2,
    aes_params = list(hjust = 0),
    position = position_nudge(x = 0.15)
  ) %>%
  theme(
    plot.margin = margin(t = 25, b = 25, l = 20, r = 80),
    axis.text.y = element_text(margin = margin(r = 10))
  )

ggplotly(p)

内容的提问来源于stack exchange，提问作者AlisAquilae