在ggplot2中，如何在facet上组合geom_smooth？

Question

我正在尝试绘制各个方面的时间趋势，并且无法正确添加geom_smooth。

这样做：

economics_mod <- economics_long %>% 
  mutate(type = variable) %>% 
  mutate(type = recode(type, `pce` = "1", `pop` = "1", .default = "2"))

ggplot(economics_mod, aes(date, value01, group = variable)) +
  geom_path() + 
  facet_wrap( ~ type, ncol = 1) +
  geom_smooth()

让我来这里：

问题是我希望每个方面有一条smotthed线，而不是一系列数据。

我尝试为aes和path修改smooth的不同设置，但没有任何结果。问题在哪里？

更新：@mikeck和@Marius解决方案解决了这个问题：

library(Matrix)
ggplot(economics_mod, aes(date, value01)) +
  geom_path(aes(group = variable)) + 
  facet_wrap( ~ type, ncol = 1) +
  geom_smooth()