ggplot绘制树状图：点美学覆盖标签美学的问题求助

问题根源 #

你遇到的核心问题是ggplot2中同一美学属性（如colour）的刻度（scale）是全局共享的：

• 你先在geom_text中基于n_labs$group定义了颜色映射；
• 后续geom_point添加的scale_colour_manual会直接覆盖全局的颜色规则，导致标签的颜色映射被重置为点的颜色逻辑，最终仅点保留了预期的美学效果。
  另外，直接在aes中引用外部数据框的列（如n_labs$group）属于不规范写法，容易引发数据匹配错误。

解决方案：使用独立的美学刻度 #

我们可以借助ggnewscale包为标签和点创建独立的colour刻度，让两者的美学设置互不干扰。

步骤1：整理数据（规范数据匹配） #

先将树状图的标签数据与n_labs合并，避免跨数据框引用：

# 合并标签数据与分组信息
label_data <- cbind(label(dendro_data(nt.agna.dend)), n_labs)

步骤2：安装并加载ggnewscale包 #

install.packages("ggnewscale")
library(ggnewscale)

步骤3：重构绘图代码 #

# 绘制树状图基础线段
p_base <- ggplot(segment(dendro_data(nt.agna.dend))) +
  geom_segment(aes(x = x, y = y, xend = xend, yend = yend))

# 添加标签并定义专属颜色刻度
p_with_labels <- p_base +
  geom_text(data = label_data,
            aes(label = label, x = x, y = y, colour = group),
            hjust = 1.5, angle = 90, size = 2.3) +
  # 根据你的group实际取值调整颜色值
  scale_colour_manual(name = "标签分组", values = c("组A" = "blue", "组B" = "darkgreen"))

# 开启新颜色刻度，添加点的美学设置
p_final <- p_with_labels +
  new_scale_colour() +  # 关键：启动独立的新颜色刻度，不影响之前的标签颜色
  geom_point(data = label_data,
             aes(x = x, y = y, shape = factor, colour = factor),
             size = 2.3) +
  scale_shape_manual(name = "点类型", values = c(20, 4)) +
  scale_colour_manual(name = "点分组", values = c("PRE" = "red", "NOT" = "black"))

# 查看最终图
print(p_final)

替代方案（无需额外包） #

如果不想引入新包，可将其中一个元素的颜色设置为固定值（仅适用于不需要按变量映射颜色的场景）。例如若标签颜色不需要按分组变化，可直接将colour移出aes：

# 标签使用固定颜色，点按factor映射颜色
p_final <- p_base +
  geom_text(data = label_data,
            aes(label = label, x = x, y = y),
            colour = "darkblue",  # 固定颜色
            hjust = 1.5, angle = 90, size = 2.3) +
  geom_point(data = label_data,
             aes(x = x, y = y, shape = factor, colour = factor),
             size = 2.3) +
  scale_shape_manual(values = c(20, 4)) +
  scale_colour_manual(values = c("PRE" = "red", "NOT" = "black"))

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