ggtree多标签多颜色标注异常求助：Map未解析多值

你的代码存在三个核心问题：一是硬编码颜色值导致颜色不生效，二是未针对目标节点子集添加标签，三是多标签无偏移处理导致重叠。以下是修正后的方案：

修正步骤与代码 #

1. 加载依赖包并整理数据 #

首先将嵌套格式的标签数据展开为长格式（每个标签单独一行），同时给多标签添加垂直偏移量避免重叠：

library(ggtree)
library(ggplot2)
library(tidyr)
library(dplyr)

# 生成测试进化树
my_tree <- rtree(5)

# 原始标注数据
h <- structure(list(name = c("t1", "t2", "t3"), 
                    labs = I(list(c("a1","a2","a3"),  "b1", "c3")), 
                    colors = I(list(c("red","blue","green"), "red", "green"))),
               class = "data.frame", row.names = c(NA, -3L))

# 展开为长格式，添加垂直偏移量
h_long <- h %>%
  unnest(c(labs, colors)) %>%
  group_by(name) %>%
  mutate(vjust_offset = seq(-1, -3, length.out = n()))

2. 绘制带多组彩色标签的进化树 #

用长格式数据映射标签、颜色和位置，同时指定仅在目标节点添加标签：

# 初始化树图并关联数据
t <- ggtree(my_tree, ladderize = TRUE) %<+% h_long

# 添加节点名和多组彩色标签
t + 
  geom_tiplab() +
  geom_text(aes(x = branch, label = labs, color = colors, vjust = vjust_offset),
            size = 3, subset = !is.na(labs)) +
  scale_color_identity()

关键修正说明 #

• 长格式数据：将嵌套的标签/颜色列表展开，让每个标签对应唯一的节点、颜色和偏移量，确保ggplot能正确映射每个元素
• 颜色映射：用scale_color_identity()直接使用数据中的颜色字符串，替代原代码中硬编码的colour = "black"
• 垂直偏移：通过vjust_offset让同一节点的多个标签上下错开，避免重叠；可调整seq(-1, -3, length.out = n())中的数值改变标签间距
• 子集过滤：用subset = !is.na(labs)确保仅给有标注的节点添加标签

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