在dplyr包中，recode()被取代，而case_match()被取代.有没有一种方法可以使用存储在char数组中的标签来使用case_match()重新编码值？
例如，使用recode()，我可以将标签存储在char数组中(或从CSV文件中读取)，并使用它们进行重新编码:
lbls <- c(
'male' = 'Man',
'female' = 'Woman'
)
starwars %>%
select( sex ) %>%
mutate(
sex = recode( sex, !!!lbls )
)
# A tibble: 87 × 1
# sex
# <chr>
# 1 Man
# 2 none
# 3 none
# 4 Man
# 5 Woman
# ...
然而，由于case_match()需要双边公式(old_values ~ new_value)，这不起作用.是否有一种方法可以在case_match()中使用存储值？
您可以创建一组要判断的规则.
tidyverse approach当你使用dplyr，让我们全力以赴:
(rules <- glue::glue('"{lbl}" ~ "{val}"', lbl = names(lbls), val = lbls))
# "male" ~ "Man"
# "female" ~ "Woman"
然后，您可以将此字符向量转换为call个对象的列表，其中包含rlang::parse_exprs()个对象.然后使用splice operator，!!!:
starwars |>
select(sex) |>
mutate(
sex = case_match(
sex,
!!!rlang::parse_exprs(rules),
.default = sex
)
)
# # A tibble: 87 × 1
# sex
# <chr>
# 1 Man
# 2 none
# 3 none
# 4 Man
# 5 Woman
# 6 Man
# 7 Woman
# 8 none
# 9 Man
# 10 Man
# # ℹ 77 more rows
# # ℹ Use `print(n = ...)` to see more rows
我们也可以在R基中进行解析和拼接.对我来说，这就更清楚了，我们可以用sprintf()来定义规则，而不是像蔡仁(Darren Tsai)建议的glue.
rules <- c(
"sex",
sprintf('"%s" ~ "%s"', names(lbls), lbls)
)
为了将字符向量转换成语言对象列表，我们可以使用str2lang()而不是parse_exprs().然后!!!是将case_match()应用于参数列表的一种方式，即等同于do.call().
starwars |>
select(sex) |>
mutate(
sex = do.call(
case_match,
c(
lapply(rules, str2lang),
list(.default = sex)
)
)
)
# # A tibble: 87 × 1
# sex
# <chr>
# 1 Man
# 2 none
# 3 none
# 4 Man
# 5 Woman
# <etc>
.default注意，与recode不同，我们需要提供.default参数:
当
.x中的值与任何LHS输入都不匹配时使用的值.如果是默认值NULL，则将使用缺失值.
如果不提供，则任何未指定的值(例如"none")变为NA