r - 通过带有“{{”运算符的环境变量隧道数据变量
问题描述
按照https://www.tidyverse.org/blog/2020/02/glue-strings-and-tidy-eval/中的示例
你如何将变量传递给这个函数?
library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 3.6.2
#> Warning: package 'tidyr' was built under R version 3.6.2
mean_by <- function(data, by, var, prefix = "avg") {
data %>%
group_by({{ by }}) %>%
summarise("{prefix}_{{ var }}" := mean({{ var }}, na.rm = TRUE))
}
mean_by(mtcars, by = cyl, var = mpg, prefix = "avg")
#> # A tibble: 3 x 2
#> cyl avg_mpg
#> <dbl> <dbl>
#> 1 4 26.7
#> 2 6 19.7
#> 3 8 15.1
# Variables to pass into function
params <- setdiff(colnames(mtcars) ,"mpg")
# How do you pass a variables into this function?
purrr::map(params, mean_by(mtcars, by = .x, var = mpg, prefix = "avg"))
#> Error: Column `.x` is unknown
由reprex 包(v0.3.0)于 2020-02-19 创建
解决方案
使用.data
带有列名的代词:
purrr::map(params, ~ mean_by(mtcars, by = .data[[.x]], var = mpg, prefix = "avg"))
推荐阅读
- firebase - 拦截 firebase-functions 响应(中间件)
- java - 在 GET 请求中应用正则表达式过滤器使用 Java 代码,而不是 SQL
- ios - 如何为 UITabBar 徽章添加边框?
- bash - 使用 ls 和 cut 命令获取文件所有者名称
- sql - 循环矩阵(sql)的旋转
- opencv - 访问 cvLoadImage() 函数的正确头文件
- javascript - 没有从 NodeJS 中的 MySQL 查询中获取返回对象
- c# - 通过一笔交易选择和更新
- node.js - 如何使用对话流从 RESTful API 获取数据
- python - 像 C# 一样创建 Python 类