r - 如何使用dplyr重新编码(和反向编码)列中的变量

Question

我在2013年最后一次使用R后再次使用R。我已经习惯于使用dplyr，但是我遇到了一个简单任务的问题。
我有一张 table ，看起来像

Participant Q1       Q2      Q3     Q4       Q5
1           agree  neutral   NA    Disagree  Agree
2           neutral agree    NA     NA       NA

我的目标

   Participant Q1       Q2      Q3     Q4       Q5
    1           3       2       NA      1       3
    2           2       1       NA     NA       NA

我希望能够将Q1:Q5列的分类值更改为数值，但是我看到的对dplyr使用recode的所有示例都适用于行和无列。 (我可能在示例中缺少了一些内容)。然后，我希望能够选择列Q1和Q2并对其进行反向编码。

我正在尝试学习在dplyr中做到这一点

谢谢

Answer 1

我们可以在base R中完成此操作，而无需使用任何程序包。创建一个名为vector('v1')的查找，在列上循环并使用该向量更改列中的值

v1 <- setNames(c(1:3, 3), c("Disagree", "neutral", "agree", "Agree"))
df1[-1] <- lapply(df1[-1], function(x) if(any(!is.na(x))) v1[x] else NA)
df1 
#  Participant Q1 Q2 Q3 Q4 Q5
#1           1  3  2 NA  1  3
#2           2  2  3 NA NA NA

数据

df1 <- structure(list(Participant = 1:2, Q1 = c("agree", "neutral"), 
Q2 = c("neutral", "agree"), Q3 = c(NA, NA), Q4 = c("Disagree", 
NA), Q5 = c("Agree", NA)), .Names = c("Participant", "Q1", 
"Q2", "Q3", "Q4", "Q5"), class = "data.frame", row.names = c(NA, -2L))