基于Groups列将Q10/Q11/Q12匹配值替换为NA的R语言问题

需求说明 #

根据每行Groups列的值，将Q10、Q11、Q12三列中与Groups值相同的单元格替换为NA。例如第4行Groups为Group 4，与Q11值一致，需将该单元格设为NA。

错误尝试代码 #

使用rowwise()结合mutate()和case_when()实现，但结果导致三列全部变为NA：

df %>% 
  rowwise() %>%
  mutate(Q10 = case_when(Groups %in% Q10 ~ NA, TRUE ~ Q10),
         Q11 = case_when(Groups %in% Q11 ~ NA, TRUE ~ Q11),
         Q12 = case_when(Groups %in% Q12 ~ NA, TRUE ~ Q12))

数据结构 #

structure(list(Q10 = structure(c(8L, 8L, 6L, 1L, 7L, 6L), .Label = c("Group 1", 
"Group 2", "Group 3", "Group 4", "Group 5", "Group 6", "Group 7", 
"Group 8", "Group 9"), class = "factor"), Q11 = structure(c(1L, 
6L, 5L, 4L, 7L, 6L), .Label = c("Group 1", "Group 2", "Group 3", 
"Group 4", "Group 5", "Group 6", "Group 7", "Group 8", "Group 9"
), class = "factor"), Q12 = structure(c(3L, 5L, 4L, 3L, 5L, 4L
), .Label = c("Group 1", "Group 2", "Group 3", "Group 4", "Group 5", 
"Group 6", "Group 7", "Group 8", "Group 9"), class = "factor"), 
    Groups = c("Group 2", "Group 9", "Group 2", "Group 4", "Group 6", 
    "Group 7")), class = c("rowwise_df", "tbl_df", "tbl", "data.frame"
), row.names = c(NA, -6L), groups = structure(list(.rows = structure(list(
    1L, 2L, 3L, 4L, 5L, 6L), ptype = integer(0), class = c("vctrs_list_of", 
"vctrs_vctr", "list"))), row.names = c(NA, -6L), class = c("tbl_df", 
"tbl", "data.frame")))

错误原因分析 #

1. 逻辑条件写反：需求是当列值等于Groups时替换为NA，但原代码判断的是Groups %in% 列值，逻辑完全颠倒。
2. 类型匹配问题：Q10/Q11/Q12是因子类型，Groups是字符类型，直接用%in%或==比较可能出现意外结果，需要先统一类型。

正确实现方法 #

方法1：修正rowwise+case_when逻辑 #

调整判断条件，统一类型后比较：

df %>% 
  rowwise() %>%
  mutate(Q10 = case_when(as.character(Q10) == Groups ~ NA_character_, TRUE ~ Q10),
         Q11 = case_when(as.character(Q11) == Groups ~ NA_character_, TRUE ~ Q11),
         Q12 = case_when(as.character(Q12) == Groups ~ NA_character_, TRUE ~ Q12)) %>%
  ungroup()

方法2：使用across批量处理（更简洁） #

利用across批量处理目标列，无需rowwise：

df %>%
  mutate(across(c(Q10, Q11, Q12), ~ replace(.x, as.character(.x) == Groups, NA)))

方法3：ifelse结合across #

df %>%
  mutate(across(c(Q10, Q11, Q12), ~ ifelse(as.character(.x) == Groups, NA, .x)))

以上方法都能正确将每行中与Groups值匹配的单元格替换为NA，同时保留其他正常值。

内容的提问来源于stack exchange，提问作者flxflks