在 R 中嵌套 ifelse 以跨多列进行变异

Question

为了简单起见，我在 R 中通过实验处理数据，其中包含 2 个问题和 3 个条件。每个参与者被分配到 3 个条件中的 1 个，每个参与者都回答两个问题。

数据的当前组织方式是每列包含一个条件下一个问题的答案：

Respondent.ID <- c("ID1", "ID2", "ID3", "ID4", "ID5", "ID6", "ID7", "ID8", "ID9")
Q1.CondA <- c("Correct", "Incorrect", "I don't know", "", "", "", "", "", "")
Q1.CondB <- c("", "", "", "Incorrect", "Correct", "I don't know", "", "", "")
Q1.CondC <- c("", "", "", "", "", "", "I don't know", "Correct", "Incorrect")
Q2.CondA <- c("Incorrect", "Correct", "I don't know", "", "", "", "", "", "")
Q2.CondB <- c("", "", "", "I don't know", "Correct", "Incorrect", "", "", "")
Q2.CondC <- c("", "", "", "", "", "", "Correct", "Incorrect", "I don't know")

current<- data.frame(Respondent.ID, Q1.CondA, Q1.CondB, Q1.CondC, Q2.CondA, Q2.CondB, Q2.CondC)

我想重新组织数据，以便一列显示指定的条件，一列显示所有条件下问题 1 的答案，一列显示所有条件下问题 2 的答案：

Respondent.ID <- c("ID1", "ID2", "ID3", "ID4", "ID5", "ID6", "ID7", "ID8", "ID9")
Condition <- c("A", "A", "A", "B", "B", "B", "C", "C", "C")
Q1 <- c("Correct", "Incorrect", "I don't know", "Incorrect", "Correct", "I don't know", "I don't know", 
"Correct", "Incorrect")
Q2 <- c("Incorrect", "Correct", "I don't know", "I don't know", "Correct", "Incorrect", "Correct", "Incorrect", "I don't know")
desired<- data.frame(Respondent.ID, Condition, Q1, Q2)

我可以在 Excel 中通过嵌套 If 语句来做到这一点（如果单元格非空白，则复制单元格，否则如果下一个单元格非空白，则复制下一个单元格，否则如果...） .但如果可能的话，我宁愿在 R 中做所有事情。

Excel中的拖拽复制功能意味着我可以在这个单元格级嵌套的If语句中输入一次，然后自动更改为其他单元格。我的实际数据集有 40 个问题、8 个条件和 800 名参与者，因此无法手动执行此操作。

在 R 中，我尝试将 mutate() 与嵌套的 ifelse() 语句结合使用：

dplyr::mutate(current, Condition = ifelse(current$Q1.CondA != ' ', 'A', 
       ifelse(current$Q1.CondB !=' ', 'B',
              ifelse(current$Q1.CondC !=' ', 'C', ' '))))

但它只是查找列中的第一个元素，找到一个非空元素，然后返回一个新的 'Condition' 列，其中填充了 'A'。

有没有办法让它在 R 中工作，从我当前的数据帧到我想要的数据帧？

Answer 1

另一种方法是首先使用 tidyr 对 table 进行透视，因此除 ID 外的所有列都聚集到一个列中。

library(tidyr)
current %>% 
  tidyr::pivot_longer(cols = -Respondent.ID)

然后可以使用 ".Cond"

将生成的 name 列分成 2 列

current %>% 
  tidyr::pivot_longer(cols = -Respondent.ID) %>% 
  tidyr::separate(name, c("question_id", "condition"), sep = ".Cond")

删除空字符串并旋转得更宽将产生所需的输出

current %>% 
  tidyr::pivot_longer(cols = -Respondent.ID) %>% 
  tidyr::separate(name, c("question_id", "condition"), sep = ".Cond") %>% 
  dplyr::filter(value != "") %>% 
  tidyr::pivot_wider(names_from = question_id)

在 R 中嵌套 ifelse 以跨多列进行变异

Nesting ifelse in R to mutate across multiple columns

if-statement

r

dplyr

data-wrangling