使用引用列表重新编码特定列值

Question

我的数据框是这样的

data = data.frame(ID=c(1,2,3,4,5,6,7,8,9,10),
              Gender=c('Male','Female','Female','Female','Male','Female','Male','Male','Female','Female'))

我有一个引用列表，看起来像这样 -

ref=list(Male=1,Female=2)

我想使用此引用列表替换 Gender 列中的值，而不向我的数据框添加新列。

这是我的尝试

do.call(dplyr::recode, c(list(data), ref))

这给了我以下错误-

no applicable method for 'recode' applied to an object of class "data.frame"

任何输入将不胜感激

Answer 1

一个选项是在将“ref”liststack 到两列 data.frame 之后执行 left_join

library(dplyr)
left_join(data, stack(ref), by = c('Gender' = 'ind')) %>%
    select(ID, Gender = values)

---

base R 方法是

unname(unlist(ref)[as.character(data$Gender)])
#[1] 1 2 2 2 1 2 1 1 2 2