使用ggplot为图表添加误差栏时出现行数不匹配错误求助

这个错误arguments imply differing number of rows: 10, 31本质是你的绘图图层使用了行数不匹配的数据——你的sx_mean是分组汇总后的10行数据，但某个图层偷偷调用了原始的31行sx数据，导致ggplot无法对齐数据维度。

具体问题分析 #

看你的代码，有两个明显的问题点：

1. x轴变量写错了：你分组用的是modulename，但geom_point里写的是x = module。如果sx里恰好有module列，ggplot会自动去原始数据里取这个31行的变量，和sx_mean的10行mean/SE无法匹配。
2. fill = Value无对应数据：sx_mean里没有Value列，ggplot同样会去原始sx里找这个31行的变量，再次触发行数不匹配的冲突。

修正方案 #

方案1：基础版（去掉fill，修正x变量）

先确认汇总后的数据结构，确保变量对应：

str(sx_mean)

你会看到sx_mean只有modulename、mean、SE三列，所以绘图时只使用这三个列：

ggplot(data = sx_mean ) +
  geom_point(aes(x = modulename, y = mean), size = 2.5, color = "seagreen") +
  geom_errorbar(
    aes(x = modulename, ymin = mean - SE, ymax = mean + SE),
    width = 0.2  # 给误差栏加个宽度，让图表更美观
  )

方案2：保留fill（需要调整分组逻辑）

如果你确实需要按Value填充颜色，那必须在汇总时把Value也加入分组，确保sx_mean里包含这个列：

# 重新汇总，加入Value分组，同时取消自动分组残留
sx_mean = sx %>% 
  group_by(modulename, Value) %>% 
  summarise(
    mean = mean(pr), 
    SE = sd(pr)/sqrt(n()),
    .groups = "drop"  # 必须加这个，避免后续分组残留导致的异常
  )

# 绘图时用带填充的形状（比如shape=21），不然fill参数不会生效
ggplot(data = sx_mean ) +
  geom_point(
    aes(x = modulename, y = mean, fill = Value),
    size = 2.5, 
    color = "seagreen",
    shape = 21  # 空心带填充的圆形，能同时显示边框色和填充色
  ) +
  geom_errorbar(
    aes(x = modulename, ymin = mean - SE, ymax = mean + SE, color = Value),
    width = 0.2
  )

关键提醒 #

• ggplot的图层如果在aes()里引用了当前数据框外的变量，会自动向上查找全局环境或初始数据，这很容易触发行数不匹配问题。
• 汇总后一定要检查数据结构，确保所有绘图用的变量都在汇总后的数据集里。

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