r - 有没有更有效的方法在 R 中创建权重？

Question

我正在尝试根据数据集中变量值的不同组合的数量为分析创建权重。我尝试使用distinct()andcount()函数，但是行的顺序被打乱了（与 using 相同rle()。下面的函数以正确的顺序准确地计算权重，但效率不高。有没有办法让它更快？谢谢！

weights<-function(v){
  sum(X==v)
}

w<-sapply(unique(X, weights)

标签： rperformancedplyrweighted-averageweighting