如何使用ggplot绘制多行的平均线？

Question

我正在研究使用ggplot创建分面图的示例。该图包含4 subplots，每个都有多行。你如何绘制每个子图的平均线？我的尝试如下所示：

library(datasets)
data(ChickWeight)

library(ggplot2)
g = ggplot(ChickWeight, aes(x = Time, y = weight))
g = g + geom_line(aes(group = Chick, color = Diet))
g = g + facet_grid(. ~ Diet)
g = g + stat_summary(aes(group = Diet), fun.y=mean, size = 1, color="black", geom="line")
g

我不确定我是否正确使用geom_summary功能。我也试过geom_smooth(method = "lm", se = FALSE)，但不确定这个输出是否与平均值相同。