使用case_when内部跨突变

Question

我有这样的调查数据。唯一的回答是“na”或“yes”。

    data_in <-read_table2("ID   Q26_1_1 Q26_1_2 Q26_1_3 Q26_1_4
1   NA  NA  NA  Yes
2   NA  NA  NA  NA
3   Yes Yes Yes NA
4   NA  Yes Yes NA
5   NA  NA  NA  NA
")

我不得不对数据应用以下逻辑：

null

null

  attempt <- data_in %>% mutate(across(matches("^Q26_1_1$|Q26_1_2$|Q26_1_3$"),.fns=~case_when(Q26_1_4=="Yes"~"No",
                                                                                    TRUE~as.character(.))))

data_out <- read_table2("ID Q26_1_1 Q26_1_2 Q26_1_3 Q26_1_4
1   No  No  No  Yes
2   NA  NA  NA  NA
3   Yes Yes Yes No
4   No  Yes Yes No
5   NA  NA  NA  NA
")

任何建议都非常感谢！我想我可能得用一个循环，但我不知道怎么用。如果我转换为数值并将所有4列求和，我可以使用类似…？

  for (i in data_in){
    if (is.na(i) & data_in[5]>0) {
      i=="No"
    }
  }

Answer 1

我们可以通过一个helper列来实现这一点。（当然，您可以...在结尾处选择(-any_yes)进行清理。）

data_in %>%
  mutate(
    # Logic 1
    across(matches("^Q26_1_[1-3]$"),
      ~case_when(Q26_1_4 == "Yes" ~ "No", TRUE ~ .)
    ),
    # Logic 2
    any_yes = rowSums(select(., matches("^Q26_1_[1-3]$")) == "Yes", na.rm = TRUE) >= 1,
    across(matches("^Q26_1_[0-9]$"),
      ~ case_when(
        any_yes ~ coalesce(., "No"), # logic 2
        TRUE ~ .                     # logic 3
      )     
    ))
# # A tibble: 5 x 6
#      ID Q26_1_1 Q26_1_2 Q26_1_3 Q26_1_4 any_yes
#   <dbl> <chr>   <chr>   <chr>   <chr>   <lgl>  
# 1     1 No      No      No      Yes     FALSE  
# 2     2 NA      NA      NA      NA      FALSE  
# 3     3 Yes     Yes     Yes     No      TRUE   
# 4     4 No      Yes     Yes     No      TRUE   
# 5     5 NA      NA      NA      NA      FALSE