你看看这个函数有用吗?
apply

大哥，提问的智慧你没有啊。你要描述你的数据是怎样的，别人才好回答。

分组计算，可以用 data.table包里面的 split 函数。

可以使用
weighted.mean(x, w, ...)
Examples

## GPA from Siegel 1994
wt <- c(5,  5,  4,  1)/15
x <- c(3.7,3.3,3.5,2.8)
xm <- weighted.mean(x, wt)
分组的话
library(plyr)
ddply(data,.(variable),summarize,wm=weighted.mean(x, wt))