ggplot中geom_point：单独设置抖动点填充色不影响箱线图

问题核心 #

你需要给cDM31_NS的4个数据点设置蓝色填充，但之前单独给geom_point设置填充时会影响箱线图颜色，根源是全局fill映射会作用于所有图层。

解决方案思路 #

• 拆分图层：箱线图仅绘制有足够重复的aDM31_WT、bDM75_WT；cDM31_NS的点单独用geom_point绘制
• 独立设置样式：给cDM31_NS的点直接指定填充色，不依赖全局映射，避免和箱线图颜色冲突
• 统一位置参数：保证箱线图、抖动点的分组位置对齐

修正后的完整代码 #

library(dplyr)
library(ggplot2)

# 读入数据，避免用attach()造成变量污染
test <- read.table("Fig3G.txt", header = TRUE)

# 拆分数据集：箱线图专用样本 + cDM31_NS单独样本
boxplot_data <- test %>% filter(sample %in% c("aDM31_WT", "bDM75_WT"))
ns_data <- test %>% filter(sample == "cDM31_NS")

graph2 <- ggplot() +
  # 箱线图的误差线
  stat_boxplot(data = boxplot_data, 
               aes(x = parameter, y = value, fill = sample, color = sample),
               geom = "errorbar", 
               position = position_dodge(width = 0.75), 
               width = 0.2, 
               show.legend = FALSE) +
  # 绘制箱线图（隐藏异常点，后续单独加抖动点）
  geom_boxplot(data = boxplot_data,
               aes(x = parameter, y = value, fill = sample, color = sample),
               outlier.shape = NA, 
               show.legend = TRUE,
               position = position_dodge(width = 0.75)) +
  # 箱线图对应的抖动点（仅映射color，不继承全局fill）
  geom_point(data = boxplot_data,
             aes(x = parameter, y = value, color = sample),
             size = 0.9, 
             alpha = 0.4, 
             show.legend = FALSE, 
             position = position_jitterdodge(jitter.width = 0.2, dodge.width = 0.75)) +
  # 单独绘制cDM31_NS的点，直接设置蓝色填充+黑色边框
  geom_point(data = ns_data,
             aes(x = parameter, y = value),
             fill = "#0066CC",  # 可替换为你需要的蓝色色值
             color = "black",
             size = 0.9,
             show.legend = FALSE,
             position = position_dodge(width = 0.75)) +
  # 箱线图的颜色/填充映射（明确指定样本对应颜色）
  scale_color_manual(values = c("aDM31_WT" = "black", "bDM75_WT" = "black")) +
  scale_fill_manual(values = c("aDM31_WT" = "#FFFFFF", "bDM75_WT" = "#CC6633")) +
  # 坐标轴设置
  scale_y_continuous(position = "right", limits = c(-160, 0)) +
  scale_x_discrete(limits = c("deltaF", "deltaD")) +
  # 主题美化
  theme_linedraw() +
  theme(legend.position = "none",
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())

graph2

关键修改点说明 #

1. 图层与数据拆分：不同类型元素用独立数据集和图层，彻底避免全局映射冲突
2. 点样式独立设置：cDM31_NS的点直接指定fill参数，不加入全局aes映射，不会影响箱线图填充色
3. 位置对齐：所有分组元素统一使用position_dodge(width = 0.75)，保证抖动点和箱线图在同一分组位置
4. 颜色映射修正：原代码颜色值数量不匹配，这里明确指定每个样本对应的颜色，直观且不易出错
5. 移除attach()：用dplyr筛选数据，避免环境变量混乱

内容的提问来源于stack exchange，提问作者Sébastjen Schoenaers