通过Rkey计算变量ActWt的平均值

Question

ActWt Rkey
133 R01
131 R01
131 R01
130 R01
128 R01
125 R01
128 R02
133 R02
132 R02
132 R02
130 R02
133 R03
123 R03
122 R03
117 R03

我想通过Rkey计算ActWt的平均值，然后构造一个新列并将该平均值放入该特定的Rkey ID ... 结果应该是这样的:(我只是用平均值来说明我想把它们放进去......

ActWt Rkey Mean
133 R01 130
131 R01 130
131 R01 130
130 R01 130
128 R01 130
125 R01 130
128 R02 131
133 R02 131
132 R02 131
132 R02 131
130 R02 131

我在R中尝试了dplyr包...但不确定如何根据Rkey匹配平均值... 非常感谢!!

Answer 1

我们需要在'Rkey'分组后使用mutate

library(dplyr)
df1 %>%
    group_by(Rkey) %>%
    mutate(Mean= round(mean(ActWt)))