条件重新编码没有错误，但也没有变化

Question

我正在尝试使用两个列表（"list1" 和 "list2"）在实验中重新编码一些变量。

id 应该在每个实验条件之间匹配，但不幸的是它们不匹配。我发现解决此问题的唯一解决方案是使用 recode_if() 函数：

olives <- olives %>%
    mutate(id = recode_if(id, id == 1 & list == "list1", "1" = "9"))

olives

虽然 R 没有给我任何错误消息，但我没有看到任何更改。

我的意图如下：

• 如果 item 在 list1 中且 id 为 1，则将 id = 1 更改为 id = 9

• 如果 item 在 list1 中且 id 为 2，将 id = 2 更改为 id = 10

等

是错误吗？

 dput(head(olives))

structure(list(subject = c(NA, 128, 128, 128, 128, 128), X2 = c(NA, 
NA, NA, NA, NA, NA), birth_year = c(NA, 1997, 1997, 1997, 1997, 
1997), X4 = c(NA, NA, NA, NA, NA, NA), birth_month = c(NA, 8, 
8, 8, 8, 8), X6 = c(NA, NA, NA, NA, NA, NA), native_language = c(NA, 
"Greek", "Greek", "Greek", "Greek", "Greek"), X8 = c(NA, NA, 
NA, NA, NA, NA), Multilingual = c(NA, "Yes", "Yes", "Yes", "Yes", 
"Yes"), X10 = c(NA, NA, NA, NA, NA, NA), Dyslexic = c(NA, "No", 
"No", "No", "No", "No"), X12 = c(NA, NA, NA, NA, NA, NA), Sex = c(NA, 
"Female", "Female", "Female", "Female", "Female"), X14 = c(NA, 
NA, NA, NA, NA, NA), HandPreference = c(NA, "Right", "Right", 
"Right", "Right", "Right"), X16 = c(NA, NA, NA, NA, NA, NA), 
    rt = c(NA, NA, NA, 5602, NA, NA), stimulus = c(NA, NA, NA, 
    "Η μεταφορική εταιρία είναι στη Λάρισα", 
    NA, NA), trial_index = c(NA, 15, 17, 18, 20, 22), time_elapsed = c(NA, 
    139855, 146511, 152621, 159248, 167898), list = c(NA, "list1", 
    "list1", "list1", "list1", "list1"), button_pressed = c(NA, 
    NA, NA, 0, NA, NA), rt1 = c(NA, 313, 216, NA, 246, 191), 
    rt2 = c(NA, 545, 139, NA, 196, 327), rt3 = c(NA, 337, 416, 
    NA, 212, 320), rt4 = c(NA, 139, 373, NA, 314, 426), rt5 = c(NA, 
    396, 326, NA, 345, 427), rt6 = c(NA, 333, 631, NA, 540, 481
    ), id = c(NA, 14, 1, 1, 7, 11), item_type = c(NA, "ZZM", 
    "ZYM", "QZYM", "ZYM", "ZZMM"), expected_answer = c(NA, NA, 
    NA, "Λάθος", NA, NA), answer = c(NA, NA, NA, "Λάθος", 
    NA, NA), correct = c(NA, NA, NA, TRUE, NA, NA), integer_correct = c(NA, 
    NA, NA, 1, NA, NA)), row.names = c(NA, 6L), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

Answer 1

尝试 %in%：问题可能与 == 完全匹配。

library(dplyr)

olives %>% 
  mutate(id = case_when(item %in% list1 & id == 1 ~9, 
                        item %in% list2 & id == 2 ~10,
                        TRUE ~ id))