r语言 - 使用dplyr编程:使用glue语法重命名带有变量的列

Question

我已经阅读了Programming with dplyr，并了解rename()和select()使用整洁的选择。我试图将此与glue语法结合起来，使用新的双花括号语法(rlang v0.4.0)创建一个自定义函数，但是我得到了额外的引号:

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
sel_var = "homeworld"
# Attempt at using (newer) double curly syntax:
starwars %>% 
select("{{sel_var}}_old" := {{ sel_var }})
#> # A tibble: 87 x 1
#>    `"homeworld"_old`
#>    <chr>            
#>  1 Tatooine               
#> # ... with 77 more rows
# Working, but uglier (and older) bang bang syntax:
starwars %>% 
select(!!sym(paste0(sel_var, "_old")) := {{ sel_var }})
#> # A tibble: 87 x 1
#>    homeworld_old
#>    <chr>        
#>  1 Tatooine          
#> # ... with 77 more rows

^{由reprex包(v0.3.0)创建于2021-02-16}

如何使用双花括号{{ }}和胶水:=语法来避免`"homeworld"_old`中的额外引号?在这里的一个函数中，这显示了summarise("mean_{{expr}}" := mean({{ expr }}), ...)的工作。

Answer 1

粘合机制中的{{操作符在表达式级别工作，而不是字符串级别。当表达式包含字符串时，引号(")也是该表达式的一部分，这就是您在输出中看到它们的原因。如果将字符串转换为变量名，则一切都应按预期工作:

sel_var <- as.name("homeworld")
starwars %>% 
select("{{sel_var}}_old" := {{ sel_var }})
# # A tibble: 87 x 1
#    homeworld_old
#    <chr>        
#  1 Tatooine     
#  2 Tatooine     
# ...

注意您链接的summarise("mean_{{expr}}" := mean({{ expr }}), ...)示例具有相同的属性。例如，下面是在小插图中定义的一个函数:

my_summarise5 <- function(data, mean_var, sd_var) {
data %>% 
summarise(
"mean_{{mean_var}}" := mean({{ mean_var }}), 
"sd_{{sd_var}}" := mean({{ sd_var }})
)
}

当你将变量名传递给函数时，一切都像预期的那样工作:

my_summarise5( mtcars, mpg, mpg )
#   mean_mpg   sd_mpg
# 1 20.09062 20.09062

但是，传递字符串将在输出中包含"，如您的示例:

my_summarise5( mtcars, "mpg", "mpg" )
#   mean_"mpg" sd_"mpg"
# 1         NA       NA
# Warning messages:
# 1: In mean.default(~"mpg") :
#   argument is not numeric or logical: returning NA
# 2: In mean.default(~"mpg") :
#   argument is not numeric or logical: returning NA

Answer 2

{{}}内部的值应该不加引号，因此在使用它们之前创建列名。

有两种方法:

1. Usingcurly-curly({{}}).

library(dplyr)
library(rlang)
sel_var = 'homeworld'
new_col <- paste0(sel_var, '_old')
starwars %>% 
select({{ sel_var }}) %>% 
rename({{new_col}} := {{ sel_var }})
# A tibble: 87 x 1
#   homeworld_old
#   <chr>        
# 1 Tatooine     
# 2 Tatooine     
# 3 Naboo        
# 4 Tatooine     
# 5 Alderaan     
# 6 Tatooine     
# 7 Tatooine     
# 8 Tatooine     
# 9 Tatooine     
#10 Stewjon      
# … with 77 more rows

2. 使用bang-bang (!!)将返回相同的输出

starwars %>% 
select({{ sel_var }}) %>% 
rename(!!new_col := {{ sel_var }})