gpt4 book ai didi

r - 使用 mutate_each_ 控制 dplyr 评估范围

转载 作者:行者123 更新时间:2023-12-01 10:42:40 24 4
gpt4 key购买 nike

有没有办法确保 mutate_each_(或者可能是 funs_)在父框架中查找函数?考虑:

library(dplyr)    # 0.4.1
library(magrittr) # 1.5

fun_list <- list(a=quote(rev), b=quote(sort))
iris[1:5, 1:2] %>% mutate_each_(funs_(fun_list), c("Sepal.Length"))

如你所料的那样工作:

  Sepal.Length Sepal.Width   a   b
1 5.1 3.5 5.0 4.6
2 4.9 3.0 4.6 4.7
3 4.7 3.2 4.7 4.9
4 4.6 3.1 4.9 5.0
5 5.0 3.6 5.1 5.1

但是:

my_rev <- rev
my_srt <- sort
fun_list2 <- list(a=quote(my_rev), b=quote(my_srt))
iris[1:5, 1:2] %>% mutate_each_(funs_(fun_list2), c("Sepal.Length"))

错误:

Error in mutate_impl(.data, dots) : could not find function "my_rev"

一个简单的 mutate 工作:

iris[1:5, 1:2] %>% mutate(a=my_rev(Sepal.Length), b=my_srt(Sepal.Length))

最佳答案

您应该在此处使用公式 ~ 表示法而不是 quote()

my_rev <- rev
my_srt <- sort
fun_list2 <- list(a = ~my_rev, b = ~my_srt)
iris[1:5, 1:2] %>% mutate_each_(funs_(fun_list2), c("Sepal.Length"))

来自非标准评估小插图:

It’s best to use a formula, because a formula captures both the expression to evaluate, and the environment in which it should be a evaluated.

关于r - 使用 mutate_each_ 控制 dplyr 评估范围,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28858300/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com