(R) 如何重新编码多个列并将它们作为新列？ [复制]

Question

我有这样的数据

> data

satface1         satface2               satface3         satface 4 ... satface10
Agree            Disagree               Neutral
Disagree         Strongly Disagree      Strongly Agree
Agree            Disagree               Agree
Neutral          Agree                  Neutral
Strongly Agree   Neutral                Disagree

我想重新编码

Strongly Disagree = 1, Disagree = 2, Neutral = 3, Agree = 4, Disagree = 5 

并将它们设为新列（名称 satface1_re、satface2_re....）我该怎么做？

> data

satface1         satface2               satface3       (satface4...10)  satface1_re satface2_re satface3_re
Agree            Disagree               Neutral                          4           2           3 
Disagree         Strongly Disagree      Strongly Agree                   2           1           5
Agree            Disagree               Agree                            4           2           4
Neutral          Agree                  Neutral                          3           4           3
Strongly Agree   Neutral                Disagree                         5           3           2

Answer 1

一个选项是使用factor 重新编码。按所需顺序指定levels，并在across 中用as.integer 强制转换为numeric，并通过更改.names 添加新列

library(dplyr) # 1.0.0
lvls <- c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree") 
data1 <- data %>%
     mutate(across(starts_with('satface'),
        ~ as.integer(factor(., levels = lvls)), .names = "{col}_re"))

---

或者将recode 与命名为vector 一起使用

data %>% 
   mutate(across(starts_with('satface'),
     ~ recode(., !!! setNames(1:5, lvls)), .names = "{col}_re"))

数据

data <- structure(list(satface1 = c("Agree", "Disagree", "Agree", "Neutral", 
"Strongly Agree"), satface2 = c("Disagree", "Strongly Disagree", 
"Disagree", "Agree", "Neutral"), satface3 = c("Neutral", "Strongly Agree", 
"Agree", "Neutral", "Disagree")), class = "data.frame", row.names = c(NA, 
-5L))