使用 dplyr 编程：使用胶水语法重命名带有变量的列

如何解决使用 dplyr 编程：使用胶水语法重命名带有变量的列

我已通读 Programming with dplyr 并了解 rename() 和 select() 使用整洁的选择。我正在尝试将其与胶水语法结合起来使用新的双卷曲语法 (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 package (v0.3.0) 于 2021 年 2 月 16 日创建}

如何使用双卷曲 `"homeworld"_old` 和粘合 {{ }} 语法避免 := 中的额外引号？这在函数 here 中显示适用于 summarise("mean_{{expr}}" := mean({{ expr }}),...)。

解决方法

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

这里有两种方法：

1. 使用 curly-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 }})

,

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

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