我有一个如下所示的数据框：
site date var dil
1 A 7.4 2
2 A 6.5 2
1 A 7.3 3
2 A 7.3 3
1 B 7.1 1
2 B 7.7 2
1 B 7.7 3
2 B 7.4 3
我需要添加一个名为的列 wt 到此数据框，其中包含计算加权平均值所需的加权因子。必须为每个组合导出该加权因子 site 和 date。
我正在使用的方法是首先构建一个计算weigthing因子的函数：
> weight <- function(dil){
dil/sum(dil)
}
然后为每个组合应用函数 site 和 date
> df$wt <- ddply(df,.(date,site),.fun=weight)
但我收到此错误消息：
Error in FUN(X[[1L]], ...) :
only defined on a data frame with all numeric variables