R中ggplot2的stat_summary使用时无法修改y美学的问题求助

问题1：geom改为point时指定y=after_stat(y)报错 #

原因 #

stat_summary计算统计量（比如中位数）时，必须依赖原始的y美学数据（这里是mtcars的mpg）。当你在aes(y = after_stat(y))里显式指定y为统计后的结果，相当于覆盖了传递给stat的原始y数据，导致stat阶段无法获取计算中位数所需的原始mpg，因此抛出"缺少y美学"的错误。

而之前用geom="text"时，你并没有覆盖y美学——全局aes的y=mpg依然传递给stat_summary用来计算中位数，只是label用了统计后的y值，所以能正常运行。

解决方案 #

不需要在aes里指定y=after_stat(y)，stat_summary计算完成后，geom="point"会自动使用统计得到的y值（中位数）。直接运行以下代码即可：

d <- ggplot(mtcars, aes(cyl, mpg)) +
  geom_point()

d + stat_summary(fun = "median", colour = "red", size = 4,
                 geom = "point",
                 position = position_nudge(x = 0.25))

如果确实需要对统计后的y值做调整，可以用stage()函数，确保计算阶段使用原始y：

d + stat_summary(fun = "median", colour = "red", size = 4,
                 geom = "point",
                 aes(y = stage(mpg, after_stat = y)), # 计算阶段用mpg，之后用统计后的y
                 position = position_nudge(x = 0.25))

问题2：直接设置y=8报错 #

原因 #

当你在aes(y = 8)里指定y为固定值，stat_summary会把这个固定值当成y的原始数据，而不是mpg的displ列——这就导致fun.data无法获取原始displ数据来计算均值和标准差，同时geom_text也因为stat计算失败，无法得到有效的y值，最终报错。

而用stage(displ, after_stat = 8)时，stage()明确告诉ggplot：统计计算阶段使用原始的displ数据，渲染geom阶段再把y设为8，这样stat能正常计算，geom也能拿到正确的y位置。

解决方案 #

有两种可行的写法：

1. 用stage()保持计算逻辑（和你原来的可行代码一致）：

ggplot(mpg, aes(class, displ)) +
  geom_violin() +
  stat_summary(
    aes(
      y = stage(displ, after_stat = 8),
      label = after_stat(paste(mean, "±", sd))
    ),
    geom = "text",
    fun.data = ~ round(data.frame(mean = mean(.x), sd = sd(.x)), 2)
  )

2. 将固定y值放在aes外面，作为geom的参数（更简洁）：

ggplot(mpg, aes(class, displ)) +
  geom_violin() +
  stat_summary(
    aes(label = after_stat(paste(mean, "±", sd))),
    geom = "text",
    fun.data = ~ round(data.frame(mean = mean(.x), sd = sd(.x)), 2),
    y = 8 # 固定y值放在aes外，不影响stat的原始数据获取
  )

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