如何在ggplot2中为分组空心图形点添加颜色填充？

要把空心散点改成带颜色填充的样式，核心是用支持填充属性的散点形状（ggplot2中形状编号21-25都支持独立的填充色和边框色），再通过fill参数映射分组变量，具体操作如下：

核心修改点 #

• 将散点的shape设为21-25中的任意一个（比如常用的21，圆形带填充）
• 用fill映射分组变量来控制填充色，可选通过color设置散点边框色，保持和折线风格统一

示例代码 #

假设你原绘图代码类似以下空心散点版本：

library(ggplot2)

# 模拟体重变化数据集
set.seed(123)
df <- expand.grid(
  group = c("对照组", "实验组A", "实验组B"),
  time = 1:4
)
df$weight_mean <- rnorm(nrow(df), mean = 20 + df$time*1.5 + as.numeric(df$group)*0.8, sd = 1)
df$weight_se <- rnorm(nrow(df), mean = 0.5, sd = 0.1)

# 原空心散点绘图代码
ggplot(df, aes(x = time, y = weight_mean, color = group)) +
  geom_line(linewidth = 1) +
  geom_errorbar(aes(ymin = weight_mean - weight_se, ymax = weight_mean + weight_se),
                width = 0.2, position = position_dodge(0.2)) +
  geom_point(shape = 1, size = 3, position = position_dodge(0.2)) + # 空心散点
  labs(x = "时间（周）", y = "平均体重（kg）", color = "分组") +
  theme_bw()

修改后带填充色的散点代码：

ggplot(df, aes(x = time, y = weight_mean, color = group)) +
  geom_line(linewidth = 1) +
  geom_errorbar(aes(ymin = weight_mean - weight_se, ymax = weight_mean + weight_se),
                width = 0.2, position = position_dodge(0.2)) +
  # 修改散点部分：用shape=21，添加fill映射，设置黑色边框
  geom_point(aes(fill = group), shape = 21, size = 3, 
             position = position_dodge(0.2), color = "black") + 
  labs(x = "时间（周）", y = "平均体重（kg）", color = "分组", fill = "分组") +
  theme_bw()

细节说明 #

• shape=21：圆形，支持独立设置填充色（fill）和边框色（color）
• 若希望填充色和折线颜色一致，可让fill和color映射同一个分组变量，图例可通过guides(fill = guide_legend(override.aes = list(color = NA)))合并样式
• 不需要边框的话，删掉color = "black"参数，边框会自动匹配填充色

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