r - R dplyr:当 ... 将引用数据中的变量名时,如何使用 ... 和 summarise(across())?
问题描述
我想要一个灵活的功能summarize
,其中使用:
- 聚合函数由用户给出
- 聚合函数可能会使用更多的参数来引用数据本身的变量。
一个很好的例子是用户提供fun=weighted.mean()
和指定权重参数w
。
目前,我正在尝试使用...
. 问题是我没有找到一种方法来...
引用数据框中的变量?下面的示例是使用 给出的across()
,但如果我使用它也会发生同样的情况summarize_at()
谢谢!!
library(tidyverse)
fo1 <- function(df, fun=mean, ...){
df %>%
group_by(Species) %>%
summarise(across(starts_with("sepal"), fun, ...))
}
fo1(iris)
#> `summarise()` ungrouping output (override with `.groups` argument)
#> # A tibble: 3 x 3
#> Species Sepal.Length Sepal.Width
#> <fct> <dbl> <dbl>
#> 1 setosa 5.01 3.43
#> 2 versicolor 5.94 2.77
#> 3 virginica 6.59 2.97
fo1(iris, fun=weighted.mean)
#> `summarise()` ungrouping output (override with `.groups` argument)
#> # A tibble: 3 x 3
#> Species Sepal.Length Sepal.Width
#> <fct> <dbl> <dbl>
#> 1 setosa 5.01 3.43
#> 2 versicolor 5.94 2.77
#> 3 virginica 6.59 2.97
fo1(iris, fun=weighted.mean, w=Petal.Length)
#> Error: Problem with `summarise()` input `..1`.
#> x object 'Petal.Length' not found
#> ℹ Input `..1` is `across(starts_with("sepal"), fun, ...)`.
#> ℹ The error occurred in group 1: Species = "setosa".
fo1(iris, fun=weighted.mean, w=.data$Petal.Length)
#> Error: Problem with `summarise()` input `..1`.
#> x 'x' and 'w' must have the same length
#> ℹ Input `..1` is `across(starts_with("sepal"), fun, ...)`.
#> ℹ The error occurred in group 1: Species = "setosa".
由reprex 包于 2020-11-10 创建(v0.3.0)
解决方案
您需要传递附加参数的确切值。.data$Petal.Length
是NULL
。
library(dplyr)
fo1 <- function(df, fun=mean, ...){
df %>%
summarise(across(starts_with("sepal"), fun, ...))
}
fo1(iris, fun=weighted.mean, w= iris$Petal.Length)
# Sepal.Length Sepal.Width
#1 6.180167 2.970197
推荐阅读
- c - 在 C 中使用标记的函数编译错误
- django - 如何在表格中显示带有表格中对象标题的下拉列表?Django 模型窗体
- angular - 角度引导按钮单击功能
- ember.js - Ember Octane 如何获取要显示的错误消息?
- javascript - JS - 将 SheetJS 库与 ExcelJS 相结合,能够对单元格进行样式设置
- html - 如何创建白框重叠图像
- laravel - Laravel 调试来自移动应用前端的 $request
- flutter - 如何在我的代码颤动中使用 SingleChildScrollView?
- c - 程序的 C 内存布局
- python - 安装 Flask-Migrate 的问题