应用geom“U平滑”；lm"；添加到已由stat_summary修改的ggplot

我正在使用R中的一个数据帧，看起来像这样：
内乌巴尔特拉夫

'data.frame':   6497651 obs. of  6 variables:
 $ fips     : chr  "09001" "09001" "09001" "09001" ...
 $ SCC      : chr  "10100401" "10100404" "10100501" "10200401" ...
 $ Pollutant: chr  "PM25-PRI" "PM25-PRI" "PM25-PRI" "PM25-PRI" ...
 $ Emissions: num  15.714 234.178 0.128 2.036 0.388 ...
 $ type     : chr  "POINT" "POINT" "POINT" "POINT" ...
 $ year     : int  1999 1999 1999 1999 1999 1999 1999 1999 1999 1999 ...

使用ggplot，我查看两个不同区域（不同的“FIP”代码）随时间推移的总排放量（使用统计摘要中的“总和”功能），使用：

g<-ggplot(NEI_BaltLaVeh, aes(year, Emissions, colour=fips))
g+ stat_summary(fun.y="sum", geom="point")

将geom_smooth应用于发送到ggplot的原始数据集，然后由stat_summary转换，给出此图：

---

对于我来说，有没有一种优雅的方法可以将geom_smooth应用于转换后的数据，而无需返回并操作数据？

可能类似于

stat_summary（fun.y=“sum”，geom=“smooth”）

？阅读本书，了解如何在提问时制作一个可复制的示例。我意识到我只是给出了数据集的一个片段，但我认为问题足够直截了当，而不需要任何人在自己的机器上复制代码。我第一次使用stackoverflow re:R，所以我会在海关做得更好。包括统计摘要中的geom=“smooth”连接了新的点，但没有给出最佳拟合线。是的，我不知道如何将

方法
传递到
统计摘要
（尽管它似乎应该有效）。您总是可以在ggplot2之外进行汇总，然后绘制汇总数据。这可能就是我最终要做的。哦，好吧。谢谢。可能类似于统计摘要（fun.y=“sum”，geom=“smooth”）
？阅读本书，了解如何在提问时制作一个可复制的示例。我意识到我只是给出了数据集的一个片段，但我认为问题足够直截了当，而不需要任何人在自己的机器上复制代码。我第一次使用stackoverflow re:R，所以我会在海关做得更好。包括统计摘要中的geom=“smooth”连接了新的点，但没有给出最佳拟合线。是的，我不知道如何将
方法
传递到
统计摘要
（尽管它似乎应该有效）。您总是可以在ggplot2之外进行汇总，然后绘制汇总数据。这可能就是我最终要做的。哦，好吧。谢谢
g+ stat_summary(fun.y="sum", geom="point")+geom_smooth(method="lm")