ggplot中多分组变量下仅按color美学避让geom_points的方法

要实现仅按color（对应Group变量）进行点的避让，无需拆分数据集，直接在position_dodge2()中显式指定group参数即可，这是最简洁的解决方案：

修改后的代码 #

ggplot(dat,aes(x = c,y = Mean,color = Group,shape = Interval)) +
  geom_point(position = position_dodge2(width = 0.5, group = ~Group)) +
  labs(y = "Item Average") +
  theme(legend.position = "top",
        axis.title.y = element_blank(),
        axis.text.y = element_text(size = 8)) +
  coord_flip()

原理说明 #

默认情况下，position_dodge2会根据aes()中所有离散型美学映射（这里是color+shape）的组合生成分组键，从而按组合避让。而在position_dodge2()中设置group = ~Group，会强制避让逻辑仅基于Group变量，忽略shape的影响：

• 同一Group下的不同Interval（不同形状）的点会被放置在同一避让位置
• 不同Group的点则按指定的width参数错开

这种方法不会破坏原有图例，color和shape的图例依然会正常生成，无需额外调整。

备选方案（拆分数据集） #

如果坚持拆分数据集的方式，可通过手动指定shape并配合scale_shape_manual维护统一图例：

ggplot() +
  # 第一个Interval组的点
  geom_point(data = subset(dat, Interval == "你的第一个区间值"), 
             aes(x = c, y = Mean, color = Group, shape = "你的第一个区间值"),
             position = position_dodge2(width = 0.5)) +
  # 第二个Interval组的点
  geom_point(data = subset(dat, Interval == "你的第二个区间值"), 
             aes(x = c, y = Mean, color = Group, shape = "你的第二个区间值"),
             position = position_dodge2(width = 0.5)) +
  # 手动设置shape图例的名称和对应形状
  scale_shape_manual(name = "Interval", 
                     values = c("你的第一个区间值" = 16, "你的第二个区间值" = 17)) +
  labs(y = "Item Average") +
  theme(legend.position = "top",
        axis.title.y = element_blank(),
        axis.text.y = element_text(size = 8)) +
  coord_flip()

这种方法需要手动匹配每个Interval对应的形状，适合特殊场景，但不如第一种方法高效。

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