如何在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)