如何在ggplot2线图中绘制平均值？

Question

我有一个数据集，它是在4个不同日期获取的权重。权重属于4个不同的分组A，B，C，D。我需要在每个特定日期将每个组的权重平均值绘制为一条轴上的4条单独的折线图。有人可以帮忙吗？

Answer 1

让我们整理一些数据：

set.seed(111)
mydata <- tibble(Group = rep(LETTERS[1:4], each = 4), 
                 Date = as.Date(rep(c("2018-01-01", "2018-02-01", "2018-03-01", "2018-04-01"), 4)), 
                 Weight = sample(50:100, 16, replace = TRUE))

您可以使用stat_summary轻松按组绘制平均值。使用您的定义“每个特定日期每组重量的平均值作为一条轴上的4个单独的折线图” ，我假设您想要这样的东西：

library(ggplot2)
mydata %>% 
  ggplot(aes(Date, Weight)) + 
  stat_summary(geom = "line", aes(color = Group), fun.y = mean)