按组添加一列均值到原始数据

Question

按组添加一列均值到原始数据我想基于因子列添加一列均值R data.frame。像这样：df1 <- data.frame(X = rep(x = LETTERS[1:2], each = 3), Y = 1:6)df2 <- aggregate(data = df1, Y ~ X, FUN = mean)df3 <- merge(x = df1, y = df2, by = "X", suffixes = c(".Old",".New"))df3#   X Y.Old Y.New# 1 A     1     2# 2 A     2     2# 3 A     3     2# 4 B     4     5# 5 B     5     5# 6 B     6     5要完成这个问题，我要创建两个不必要的data.frames。我想知道一种方法，可以通过因子列将一列方法附加到我的原始列中data.frame而不创建任何额外的data.frames。谢谢你的时间和帮助。