ggplot2调用geom_point设置点形状时仅部分点修改生效

散点形状未按分组统一调整的核心问题是代码同时叠加了两层独立的散点图层：

• 你仅在geom_point()层配置了shape = Feedback的分组形状映射，后续追加的geom_jitter()层未设置形状映射规则，会默认使用ggplot统一的实心圆点样式，两层点叠加后就会出现部分点形状不符合设置的视觉效果。
• 额外参数错误：set.seed不是geom_point()的合法传入参数，放在该层内不会生效，无法固定抖动位置实现结果复现。

# 提前设置随机种子，保证散点抖动位置可复现
set.seed(1)
ggplot(df, aes(x = Psych.Distress.Sum, y = Likelihood.Max, col = Feedback, fill = Feedback)) +
  # 绘制分组线性拟合线，按分组映射线型
  geom_smooth(method = "lm", se = TRUE, aes(linetype = Feedback), linewidth = 1) +
  # 移除冗余的geom_point层，统一用带抖动的散点展示个体数据，直接映射分组形状
  geom_jitter(aes(shape = Feedback), size = 2, alpha = 0.8, width = 0.1) +
  # 手动设置分组视觉属性，满足APA格式黑白印刷可区分的要求
  scale_shape_manual(values = c(16, 17)) +
  scale_linetype_manual(values = c(1, 2)) +
  labs(x = "Psychological Distress", y = "Endorsement of Max's Feedback Strategy") +
  apatheme +
  theme(
    axis.title = element_text(face="bold"),
    legend.text = element_text(face="bold"),
    legend.position = c(0.87, 0.13)
  )

• 删除冗余的geom_point()图层，所有个体散点统一由geom_jitter()绘制，所有点都会按Feedback分组映射对应形状，不存在样式不统一的问题
• 将set.seed(1)移至绘图代码前全局生效，固定散点抖动位置，保证代码多次运行结果完全一致
• 新增形状、线型的手动映射规则，不同分组的视觉差异即使在黑白打印场景下也可清晰识别，符合学术图表出版要求
• 给散点添加轻微透明度和横向抖动限制，既避免点重叠遮挡，也不会让散点过度偏离真实x轴数值位置

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