R语言绘制树状图时如何展示非叶节点标签并调整项目名位置

以下是满足你需求的可运行R代码，保留正交树状图美学的同时解决你提出的两个问题：

library(data.tree)
library(ggdendro)
library(ggplot2)

# 读取原始数据
data <- read.table(file = "data.csv", header = TRUE, sep = ";")

# 构造层级路径生成树结构
data$pathString <- paste("stat",
                         data$Column1,
                         data$Column2,
                         data$Column3,
                         data$Name,
                         sep = "/")
pop <- as.Node(data)
den <- as.dendrogram(pop)

# 提取树状图的结构化数据（边、节点坐标等）
dendro_struct <- dendro_data(den, type = "rectangle")

# 构造边标签数据集，坐标可根据实际输出效果微调
edge_label_df <- data.frame(
  x = c(1,1,2,2,3,3,3,3), # 边对应的层级：1=Column1层、2=Column2层、3=Column3层
  y = c(7.5, 2.5, 6, 2, 7,5,3,1), # 边的纵向中心坐标
  label = c("A", "B", "C", "D", "D", "E", "D", "E") # 对应分类值
)

# 绘制最终可视化图
ggplot() +
  # 绘制正交树状边
  geom_segment(data = segment(dendro_struct), 
               aes(x = x, y = y, xend = xend, yend = yend)) +
  # 绘制项目名称标签，调整参数固定在右侧
  geom_text(data = label(dendro_struct),
            aes(x = x, y = y, label = label),
            hjust = -0.1, size = 3) +
  # 绘制分类边标签
  geom_text(data = edge_label_df,
            aes(x = x, y = y, label = label),
            hjust = 0.5, vjust = -0.3, size = 3.5, color = "#2c3e50") +
  # 翻转坐标系实现横向树状图
  coord_flip(clip = "off") +
  # 给右侧项目名称预留展示空间
  scale_y_continuous(limits = c(0, max(label(dendro_struct)$y) + 1)) +
  # 清理冗余主题元素
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank()
  )

问题适配说明 #

• 非叶节点边标签：通过提取树结构的层级坐标，把Column1/Column2/Column3的分类值绑定到对应边的中心位置，可根据实际生成的图微调y参数匹配位置，分类层级多的场景也可以遍历pop节点自动生成标签数据集，不需要手动录入
• 项目名称位置：通过hjust = -0.1把标签设置在叶节点外侧，配合坐标系翻转后天然固定在图表右侧，不需要额外偏移调整

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