如何使用dplyr中的summarise_each计算数据集中所有字段的加权平均值?例如,假设我们要按 cyl 对 mtcars 数据集进行分组,并计算权重作为 gear 列的所有列的加权平均值 . 我尝试了以下但是无法让它工作 .
mtcars %>% group_by(cyl) %>% summarise_each(funs(weighted.mean(., gear)))
# The line above gives the following output
# Error in weighted.mean.default(c(1, 2, 2, 1, 2, 1, 1, 1, 2, 2, 2), 4.15555555555556) :
# 'x' and 'w' must have the same length
在此先感谢您的帮助!
1 回答
为了帮助看看这里发生了什么 . 让我们创建一个返回其参数长度的函数
然后将其应用于
summarise_each
,如下所示:查看此表,您可以看到第一个和第二个参数的长度在
qseq
之前是相同的,然后是lenxy
的第二个参数的长度为1,这是dplyr对数据进行操作的结果放置,用它的摘要替换每个字段,而不是创建一个新的data.fame .解决方案很简单:从摘要中排除加权变量: