通过ID在R中执行黄土平滑？

Question

我有多个人的时间序列数据：

ID Day Weight
1 1 334
1 2 339
1 3 342
1 4 339
2 1 332
2 2 334
2 3 338
2 4 341

如何通过ID获取Loess平滑结果？对一个人运行黄土平滑：

mod <- loess(Weight ~ Day, data=test, span=0.18)

smoothed <- predict(mod)

Answer 1

这将允许您绘制黄土曲线，因为这是geom_smooth的默认值。

facet_wrap还允许您为每个ID创建单独的图。

ggplot(test, aes(x=Weight, y=Day))+geom_point()+geom_smooth()+facet_wrap(~ID)

如果你想在一个地块中完成所有这些：

ggplot(test, aes(x=Weight, y=Day, 
                 col = as.factor(ID), group = as.factor(ID)))+geom_point()+geom_smooth()

哪个会给你这个：