ggplot 在图表后丢失变量/列

Question

我在 GGplot 的 geom_bar() 之后使用 geom_abline() 。我想插入 y 中连续数据平均值的 abline，但错误表明无法找到该变量。“错误：未找到对象 'khwm2'”

如果在拦截时我输入 120，它会画出线，但如果我使用mean(kwhm2) 或mean(varm_tot/totyta)，它会说找不到变量。

有什么想法吗？

这是代码：

data_fbh %>% select(varm_tot, totyta, far1) %>%
  group_by(far1) %>%
  summarise(kwhm2 = mean(varm_tot/totyta) * 1000) %>%
  ggplot(aes(x=far1, y=kwhm2)) +
  geom_bar(stat="identity", fill="blue") +
  scale_x_discrete(labels = c("-1940","1941-1960","1961-1970",
                              "1971-1980","1981-1990","1991-2000",
                              "2001-2010","2011-2019")) +
  labs(x="Byggar", y="kWh/m2") +
  theme_light() +
geom_abline(slope = 0, intercept = mean(khwm2)) 

Answer 1

我刚刚想通了，很简单。我在 abline 中添加了数据框引用。

geom_abline(slope = 0, intercept = mean(data_fbh$varm_tot/data_fbh$totyta)*1000)