使用 dplyr 编程:使用胶合语法重命名带有变量的列
Programming with dplyr: Renaming a column with variable using glue syntax
我通读了 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 }}), ...)
{{}}
中的值应该不加引号以进行评估,因此在使用它们之前创建列名。
这里有两种方法:
- 使用
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
- 使用 bang-bang (
!!
) 将 return 相同的输出。
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
我通读了 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 }}), ...)
{{}}
中的值应该不加引号以进行评估,因此在使用它们之前创建列名。
这里有两种方法:
- 使用
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
- 使用 bang-bang (
!!
) 将 return 相同的输出。
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