r - 如何将一个或两个命名向量作为参数传递给dplyr::recode

我想将一个命名向量或两个向量传递给dplyr::recode。
假设我有:

library(dplyr)
set.seed(1)
x <- c("customer", sample(c("a", "b", "c"), 10, replace = TRUE))
recode_tbl <- tibble(letter = letters[1:3], fruit = c("apple", "banana", "cranberry"))

我想做的是使用recode_tbl的列重新编码x，而不必手动将对指定为:

recode(x, a = "apple", b = "banana", c = "cranberry")

就像是:

recode(x, as.name(recode_tbl$letter) = recode_tbl$fruit)

那显然是行不通的。我不反对尝试NSE，但是如果有人能够取得成功，那就太好了。

谢谢。

最佳答案

我们可以在base R中做到这一点

x1 <- unname(setNames(recode_tbl$fruit, recode_tbl$letter)[x])
x1[is.na(x1)] <- x[is.na(x1)]

或将do.call与recode一起使用

do.call(dplyr::recode, c(list(x), setNames(recode_tbl$fruit, recode_tbl$letter)))
#[1] "customer"  "apple"     "banana"    "banana"    "cranberry" "apple"
#[8] "cranberry" "cranberry" "banana"    "banana"    "apple"

关于r - 如何将一个或两个命名向量作为参数传递给dplyr::recode，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/45164997/