如何以优雅的方式将每组变量的平均值添加到列中？

Question

我想将每月平均温度作为一列添加到空气质量数据集中。所以，我想要这样的东西：

  Ozone Solar.R  Wind  Temp Month  Day NEW COLUMN

  41     190   7.4    67     5     1  77.9
  36     118   8      72     5     2  77.9
  12     149  12.6    74     5     3  77.9
  18     313  11.5    62     5     4  77.9
  NA      NA  14.3    56     5     5  77.9
  28      NA  14.9    66     5     6  77.9

其中新列是 Temp/month 的平均值。因此，它将在 Month=5 的行中重复 Temp 的平均值，然后在 Month=6 等的行中重复 Temp 的另一个平均值。

我试过了：

 airquality %>% mutate(col = sapply(split(Temp, Month), min))

但我收到一条错误消息，说这会呈现 5 行，而我的数据框有 153 行。

如何优雅地解决这个问题？

Answer 1

代替split，将group_by 与“月份”一起使用，并在mutate 中获取“温度”的min。 min 返回一个长度为 1 的数值，该数值将被回收以填充每个组的整行

library(dplyr)
airquality %>%
    group_by(Month) %>%
    dplyr::mutate(col = min(Temp))