ggplot2散点图：仅按day分簇，用shape区分observer的实现方法

问题根源在于position_jitterdodge会默认根据所有离散映射变量（这里是day+observer）生成分组并执行分簇，导致observer被额外拆分。要保持Graph1的布局，同时用形状区分observer，只需强制指定仅按day分组即可。

示例代码与说明 #

假设你的数据集结构如下（可替换为实际数据）：

# 示例数据集
data <- data.frame(
  day = rep(c("Mon", "Tue", "Wed"), each = 20),
  observer = rep(c("A", "B"), 30),
  value = rnorm(60, mean = c(2, 4, 6), sd = 1)
)

原Graph1代码（仅按day分簇） #

ggplot(data, aes(x = day, y = value, color = day)) +
  geom_point(position = position_jitterdodge(jitter.width = 0.2, dodge.width = 0.5)) +
  theme_minimal()

原Graph2代码（出现observer额外分簇） #

ggplot(data, aes(x = day, y = value, color = day, shape = observer)) +
  geom_point(position = position_jitterdodge(jitter.width = 0.2, dodge.width = 0.5)) +
  theme_minimal()

修正后的代码（保持Graph1布局+形状区分observer） #

在aes()中手动指定group = day，覆盖默认的多变量分组：

ggplot(data, aes(x = day, y = value, color = day, shape = observer, group = day)) +
  geom_point(position = position_jitterdodge(jitter.width = 0.2, dodge.width = 0.5)) +
  theme_minimal()

替代方案：用position_jitter实现类似效果 #

如果不需要严格的分簇逻辑，仅需同一day的点在x轴附近分散，可直接使用position_jitter：

ggplot(data, aes(x = day, y = value, color = day, shape = observer)) +
  geom_point(position = position_jitter(width = 0.2, height = 0.1)) +
  theme_minimal()

效果说明 #

修正后，所有observer的点会被归入对应day的分簇内，仅通过形状区分，不会再出现observer的额外分簇，完全匹配Graph1的布局结构。

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