geom_hline无法访问y美学。您可以执行以下操作：

ggplot(mtcars, aes(x = hp, y = qsec)) +
  geom_point() +
  geom_hline(aes(yintercept = mean(qsec)))

字符串

的数据
从注解中可以看出，问题在于必须重复几个geom_hline的代码。实际上，在一个调用中可以向geom_hline传递多个值，因此最简单的方法可能是总结传递给单个geom_hline调用的数据：

ggplot(mtcars, aes(x = hp, y = qsec)) +
  geom_point() +
  geom_hline(data = . %>% 
               reframe(mean = mean(qsec), 
                       sd = sd(qsec),
                       yintercept = seq(mean - 2*sd, mean + 2*sd, sd),
                       color = factor(c('-2sd', '-1sd', 'mean', '+1sd', '+2sd'),
                                      c('-2sd', '-1sd', 'mean', '+1sd', '+2sd'))
               ), aes(yintercept = yintercept, color = color)) +
  scale_color_manual(NULL, values = c('#FF000040', '#FF000080', 'red', 
                                      '#FF000080', '#FF000040'))

型

的