ggplot2 v3.4.0图例颜色与绘图颜色不匹配问题求助

问题概述 #

在ggplot2 v3.4.0版本中，按自定义顺序绘制箱线图时，绘图的变量顺序和颜色显示正确，但图例的标签与颜色对应错位：比如绘图里PD1posCD8pos是黑色，图例中PD1+CD8+标签却对应蓝色。这是因为变量默认按字母排序，scale_fill_manual的labels参数不会自动对齐自定义顺序，导致颜色映射错位。

解决方案 #

核心是先将variable列转换为指定顺序的因子，让ggplot2基于因子顺序处理颜色和图例映射，而非默认的字母序。

1. 转换变量为因子，指定自定义顺序

# 将variable列转为因子，设定所需的显示顺序
Vedo_Project2_CD38CD127$variable <- factor(
  Vedo_Project2_CD38CD127$variable,
  levels = c("PD1posCD8pos", "TIGITposCD8pos", "CD38posCD8pos")
)

2. 调整绘图代码
   此时无需再用scale_x_discrete(limits=...)强制x轴顺序（因子已指定顺序），scale_fill_manual的labels会自动按因子顺序匹配values中的颜色：

# 颜色向量保持不变
cols <- c("PD1posCD8pos"="black", "TIGITposCD8pos"="red", "CD38posCD8pos"="blue")

# 绘制图形
pw <- ggplot(Vedo_Project2_CD38CD127, aes(variable, value, fill=variable)) +
  geom_boxplot(fill="white", width=0.5, position = position_dodge(0.1)) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.5) +
  scale_fill_manual(
    labels = c("PD1+CD8+", "TIGIT+CD8+", "CD38+CD8+"),
    values = cols
  ) +
  labs(
    x = "Sample",
    y = "Frequency of PD1+/TIGIT+/CD38+ (% of CD8+ T cells)",
    fill = "Legend"
  )

pw

原理说明 #

通过将variable转为指定顺序的因子，ggplot2会以此顺序统一处理x轴排列、颜色映射和图例生成，确保scale_fill_manual中的标签与颜色一一对应，解决版本升级后出现的错位问题。

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