r - 有没有一种简单的方法来实现类似于 `x[,c:=mean(a), by=b]$c` 的东西？

Question

> x <- data.table(a=1:10, b=rep(1:2, 5))
> x
     a b
 1:  1 1
 2:  2 2
 3:  3 1
 4:  4 2
 5:  5 1
 6:  6 2
 7:  7 1
 8:  8 2
 9:  9 1
10: 10 2
> x[,c:=mean(a), by=b]
> y <- x$c
> y
 [1] 5 6 5 6 5 6 5 6 5 6

最终，我对 y 感兴趣作为向量，我不想添加 c到 data.table .有没有更简单的方法获得 y来自原文 x ?

当我尝试将不同的权重应用于直方图中的不同组时，问题就出现了。

# here weight would be the same for all colour, but I wish they differ.
geom_freqpoly(aes(colour=group, weight=mean(y)), binwidth=1)

Answer 1

> with(x, ave(a, b, FUN=mean) )
 [1] 5 6 5 6 5 6 5 6 5 6

只是为了让 data.table 专家知道，我知道这可能无法很好地扩展到数百万条记录数据集，我很感激有关此主题的其他帖子。我一直在使用 data.table 对我的大型分析有很好的效果。这只是因为我表达了对我发布的数据参数的简单性和非修改性的渴望。