从R中的频率表计算组中位数

Question

我正在尝试实现此处描述的data.table方法：Calculating grouped variance from a frequency table in R。

我可以成功复制他们的例子。但是，当我将其应用于自己的数据时，似乎什么也没发生。具体来说，输出是这样的：

table <- data.frame(districts,proportions,populations)
table<-setDT(table)
      districts proportions populations
   1:        24   0.8270270        1269
   2:        26   0.8867925        1679
   3:        12   0.9136691         510
   4:        27   0.4220532        3274
   5:        20   0.5457650        3644
 ---                                  
8937:         1   0.7798072        3444
8938:         1   0.6080247        6128
8939:         1   0.4655172        4335
8940:         1   0.4813200        4297
8941:         1   0.7690167        3906     


setDT(table)[, list(GroupMedian=as.double(median(rep(proportions, populations))),
                    TotalCount=sum(populations)) , by = districts]
print(table)

##Same output as above###

很多时间后，我不知道发生了什么事。