修正geom_point在geom_col上方绘制时的变量顺序错位问题

问题场景 #

我有一个包含两个分类变量（system、region）和一个数值变量（value）的数据表，生成示例数据的代码如下：

data <- data.frame(system = rep(c("X","Y","Z"), 10), 
                   region = rep(letters[1:5], 6), 
                   value = rnorm(60, 500, 300)) 

需要绘制system-region维度的value均值柱状图，并叠加system维度的均值点。初始数据构建与绘图代码如下：

library(dplyr)
library(ggplot2)

plot_data <- data %>%
  mutate(system = factor(system), region = factor(region)) %>%
  group_by(system, region) %>%
  summarise(avg = mean(value), .groups = "drop") %>%
  left_join(y = data %>% group_by(system) %>% summarise(avg = mean(value), .groups = "drop"), by = "system", suffix = c("", "_all")) %>%
  mutate(point_type = ifelse(avg_all > avg, "above", "in"))

ggplot(plot_data, aes(x = region, y = avg, fill = system)) +
  geom_col(position = "dodge") +
  geom_point(aes(y = avg_all), shape = 21, position = position_dodge(width = 0.9))

为geom_point添加color = point_type美学后，点的排列顺序与柱子错位，尝试position_dodge2(reverse=T)无效果，问题代码如下：

ggplot(plot_data, aes(x = region, y = avg, fill = system)) +
  geom_col(position = "dodge") +
  geom_point(aes(y = avg_all, color = point_type), shape = 21, position = position_dodge(width = 0.9))

原因分析 #

添加color = point_type后，ggplot会同时依据fill（system）和color（point_type）两个变量进行分组Dodge，导致分组逻辑与柱子仅基于fill的分组不一致，最终出现错位。

修复方案 #

核心思路是让geom_point的Dodge分组逻辑与geom_col保持一致——仅基于system变量，有两种实现方式：

方案1：为geom_point明确指定group美学 #

在geom_point的aes中添加group = system，强制让点仅按system分组Dodge，忽略color对分组的影响：

ggplot(plot_data, aes(x = region, y = avg, fill = system)) +
  geom_col(position = position_dodge(width = 0.9)) +
  geom_point(
    aes(y = avg_all, color = point_type, group = system),
    shape = 21,
    position = position_dodge(width = 0.9)
  )

方案2：将color移出aes，手动映射颜色 #

如果不需要基于point_type生成图例，可直接将颜色赋值，避免color参与分组逻辑：

ggplot(plot_data, aes(x = region, y = avg, fill = system)) +
  geom_col(position = position_dodge(width = 0.9)) +
  geom_point(
    aes(y = avg_all, group = system),
    shape = 21,
    color = ifelse(plot_data$avg_all > plot_data$avg, "#FF0000", "#0000FF"), # 替换为你需要的颜色值
    position = position_dodge(width = 0.9)
  )

补充说明 #

• 方案1保留了point_type的图例，适合需要展示分类含义的场景；
• 方案2更简洁，适合仅需颜色区分、不需要图例的场景。

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