跨列使用case_when创建新列

Question

我有一个很大的数据集，其中有许多带有状态的列。我想做一个新的专栏，有参与者的当前状态。我试图在dplyr中使用case_when，但我不确定如何跨列。数据集的列太多，我无法键入每一列。以下是数据示例：

library(dplyr)
problem <- tibble(name = c("sally", "jane", "austin", "mike"),
                  status1 = c("registered", "completed", "registered", "no action"),
                  status2 = c("completed", "completed", "registered", "no action"),
                  status3 = c("completed", "completed", "withdrawn", "no action"),
                  status4 = c("withdrawn", "completed", "no action", "registered"))

对于代码，我想要一个新的列，列中说明参与者的最终状态；然而，如果他们的状态曾经是完成的，那么我希望它说完成，不管他们的最终状态是什么。对于该数据，答案如下所示：

answer <- tibble(name = c("sally", "jane", "austin", "mike"),
                 status1 = c("registered", "completed", "registered", "no action"),
                 status2 = c("completed", "completed", "registered", "no action"),
                 status3 = c("completed", "completed", "withdrawn", "no action"),
                 status4 = c("withdrawn", "completed", "no action", "registered"),
                 finalstatus = c("completed", "completed", "no action", "registered"))

还有，如果你能包括对你的代码的任何解释，我会非常感激的！如果您的解决方案还可以使用contains（“status”），这将特别有用，因为在我的真实数据集中，status列非常混乱（例如summary_status_5292019，sum_status_07012018等）。

Answer 1

带有pmap的选项

library(tidyverse)
problem %>%
     mutate(finalstatus =  pmap_chr(select(., starts_with('status')), ~ 
       case_when(any(c(...) == "completed")~ "completed",
             any(c(...) == "withdrawn") ~ "no action", 
     TRUE ~ "registered")))