使用 ggplot 绘制纵向数据的总体趋势

Question

我想绘制纵向数据的总体趋势。我正在使用lme4 包中的sleepstudy 数据来演示我的问题。

 library("lme4")
 library("ggplot2")
    p1 <- ggplot(data = sleepstudy, aes(x = Days, y = Reaction, group = Subject))
    p1 + geom_line() + geom_point(aes(col = Subject) ,size=2)

当我为每个人绘制纵向轨迹时，我得到了这个图

这里我有兴趣找到基于所有主题的整体趋势。对于基于上图的示例，我们可以看到总体上呈上升趋势。一般来说，这种趋势可以是线性的、二次的等。这是绘制这种总体趋势的任何方式吗？

我试过这个。但是我得到了每个主题的平滑曲线，而不是得到整体趋势

p1  + geom_point() +  geom_smooth(method = "lm") 

谁能帮我解决这个问题？

谢谢

Answer 1

不知道我是否理解正确：

library("lme4")
library("ggplot2")
ggplot(data = sleepstudy, aes(x = Days, y = Reaction))+
  geom_point(aes(colour = Subject), alpha = .3)+
  geom_smooth()+
  theme(legend.position = "none")

如您所见，您将拥有loess 函数：

> geom_smooth()` using method = 'loess' and formula 'y ~ x'

---

如果您需要lm，只需将参数method 指定为geom_smooth。

library("lme4")
library("ggplot2")
ggplot(data = sleepstudy, aes(x = Days, y = Reaction))+
  geom_point(aes(colour = Subject), alpha = .3)+
  geom_smooth(method = "lm")+
  labs(title = "Linear Model (LM)")+
  theme(legend.position = "none")

结果：