求助：为ggplot抖动箱线图奇偶分组（野生型/突变型）设置不同颜色

核心方案 #

通过基于分组编号的奇偶性生成基因型标签，将该标签映射到color美学属性，实现野生型（奇数组）和突变型（偶数组）的统一配色。

步骤1：生成基因型分组变量 #

假设你的数据集名为df，分组列是数值型的group（取值1、2、3...），先添加区分野生/突变型的新列：

library(dplyr)

# 新增genotype列：奇数分组为野生型，偶数为突变型
df <- df %>%
  mutate(genotype = ifelse(group %% 2 == 1, "野生型", "突变型"))

如果group是字符型，先转成数值型：df$group <- as.numeric(df$group)

步骤2：修改ggplot代码 #

将颜色映射到新的genotype变量，同时优化图表显示：

library(ggplot2)

ggplot(df, aes(x = factor(group), y = root_length, color = genotype)) +
  geom_boxplot(width = 0.5, outlier.shape = NA) + # 隐藏箱线图默认异常点，避免与抖动点重叠
  geom_jitter(width = 0.2, alpha = 0.6) + # 抖动点设透明度，提升可读性
  scale_color_manual(values = c("野生型" = "#2E8B57", "突变型" = "#FF6347")) + # 自定义颜色
  labs(x = "分组", y = "根长", color = "基因型") +
  theme_bw()

关键细节 #

• outlier.shape = NA：避免箱线图自带的异常点和抖动点重复，让图表更整洁
• scale_color_manual：可替换成你需要的颜色代码，比如用颜色名称"green"/"red"
• 确保x轴用factor(group)转换，否则会被当作连续数值轴显示

内容的提问来源于stack exchange，提问作者André Lima