r - 错误：案例 1 (`.`) 必须是双边公式，而不是 `data.frame` 对象

Question

我正在尝试创建一个单独的列，其中包含其他两列的最小值。当三元组等于“triad_ah”时，我想得到以下两列的最小值。

我的数据如下所示：

triad         convince_animals  convince_health 
triad_ah      4                 5
not_triad_ah  2                 3

这是我想要的输出：

triad         convince_animals  convince_health  convince_min
triad_ah      4                 5                4
not_triad_ah  2                 3                99

我尝试了两种方式。我认为使用 case_when 的方式可能会更整洁。我还包括了我收到的每一个错误消息。

尝试 1

dflong$convince_min <- dflong %>%
  case_when( 
    .$triad == "triad_ah" ~ min(.$convince_animals, .$convince_health), 
    .$triad == TRUE ~ 99
  )

Error: Case 1 (`.`) must be a two-sided formula, not a `data.frame` object.

尝试 2

dflong$convince_min <- dflong %>%
  ifelse(dflong$triad == "triad_ah", min(dflong$convince_animals, dflong$convince_health), 99)

Error in ifelse(., dflong$triad == "triad_ah", min(dflong$convince_animals, : unused argument (99)

关于为什么这不起作用的任何想法？

数据：

structure(list(triad = c("triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_ah", 
"triad_ah", "triad_ah", "triad_ah", "triad_ah", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", 
"triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_hm", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", "triad_eh", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_am", "triad_am", "triad_am", "triad_am", "triad_am", 
"triad_am", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_em", "triad_em", "triad_em", "triad_em", 
"triad_em", "triad_em", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", "triad_ae", 
"triad_ae", "triad_ae", "triad_ae"), convince_animals = c(2, 
5, 7, 4, 4, 6, 5, 3, 4, 5, 2, 2, 1, 6, 6, 5, 4, 4, 3, 1, 7, 2, 
6, 6, 7, 5, 1, 5, 7, 2, 4, 1, 4, 3, 4, 7, 3, 2, 5, 4, 6, 4, 5, 
1, 2, 3, 2, 6, 2, 2, 3, 3, 6, 3, 4, 6, 3, 2, 4, 7, 3, 4, 7, 1, 
5, 2, 2, 3, 4, 3, 2, 6, 5, 3, 3, 6, 5, 4, 4, 4, 6, 3, 4, 1, 2, 
4, 6, 4, 1, 6, 5, 3, 4, 7, 5, 4, 6, 2, 3, 3, 7, 3, 5, 3, 6, 7, 
4, 2, 6, 3, 4, 7, 5, 4, 3, 1, 7, 5, 3, 2, 2, 5, 6, 5, 2, 4, 5, 
2, 5, 4, 7, 2, 5, 4, 4, 6, 3, 7, 7, 3, 6, 6, 3, 7, 2, 3, 2, 4, 
4, 7, 2, 3, 3, 7, 5, 5, 6, 3, 4, 4, 2, 3, 5, 6, 2, 3, 4, 7, 3, 
7, 5, 5, 2, 4, 7, 2, 6, 7, 3, 5, 4, 5, 6, 6, 7, 3, 4, 3, 3, 6, 
3, 4, 3, 5, 4, 2, 7, 5, 4, 6, 6, 7, 7, 5, 3, 2, 5, 7, 4, 4, 6, 
5, 3, 4, 5, 2, 2, 1, 6, 6, 5, 4, 4, 3, 1, 7, 2, 6, 6, 7, 5, 1, 
5, 7, 2, 4, 1, 4, 3, 4, 7, 3, 2, 5, 4, 6, 4, 5, 1, 2, 3, 2, 6, 
2, 2, 3, 3, 6, 3, 4, 6, 3, 2, 4, 7, 3, 4, 7, 1, 5, 2, 2, 3, 4, 
3, 2, 6, 5, 3, 3, 6, 5, 4, 4, 4, 6, 3, 4, 1, 2, 4, 6, 4, 1, 6, 
5, 3, 4, 7, 5, 4, 6, 2, 3, 3, 7, 3, 5, 3, 6, 7, 4, 2, 6, 3, 4, 
7, 5, 4, 3, 1, 7, 5, 3, 2, 2, 5, 6, 5, 2, 4, 5, 2, 5, 4, 7, 2, 
5, 4, 4, 6, 3, 7, 7, 3, 6, 6, 3, 7, 2, 3, 2, 4, 4, 7, 2, 3, 3, 
7, 5, 5, 6, 3, 4, 4, 2, 3, 5, 6, 2, 3, 4, 7, 3, 7, 5, 5, 2, 4, 
7, 2, 6, 7, 3, 5, 4, 5, 6, 6, 7, 3, 4, 3, 3, 6, 3, 4, 3, 5, 4, 
2, 7, 5, 4, 6, 6, 7, 7, 5, 3, 2, 5, 7, 4, 4, 6, 5, 3, 4, 5, 2, 
2, 1, 6, 6, 5, 4, 4, 3, 1, 7, 2, 6, 6, 7, 5, 1, 5, 7, 2, 4, 1, 
4, 3, 4, 7, 3, 2, 5, 4, 6, 4, 5, 1, 2, 3, 2, 6, 2, 2, 3, 3, 6, 
3, 4, 6, 3, 2, 4, 7, 3, 4, 7, 1, 5, 2, 2, 3, 4, 3, 2, 6, 5, 3, 
3, 6, 5, 4, 4, 4, 6, 3, 4, 1, 2, 4, 6, 4, 1, 6, 5, 3, 4, 7, 5, 
4, 6, 2, 3, 3, 7, 3, 5, 3, 6, 7, 4, 2, 6, 3, 4, 7, 5, 4, 3, 1, 
7, 5, 3, 2, 2, 5, 6, 5, 2, 4, 5, 2, 5, 4, 7, 2, 5, 4, 4, 6, 3, 
7, 7, 3, 6, 6, 3, 7, 2, 3, 2, 4, 4, 7, 2, 3, 3, 7, 5, 5, 6, 3, 
4, 4, 2, 3, 5, 6, 2, 3, 4, 7, 3, 7, 5, 5, 2, 4, 7, 2, 6, 7, 3, 
5, 4, 5, 6, 6, 7, 3, 4, 3, 3, 6, 3, 4, 3, 5, 4, 2, 7, 5, 4, 6, 
6, 7, 7, 5, 3, 2, 5, 7, 4, 4, 6, 5, 3, 4, 5, 2, 2, 1, 6, 6, 5, 
4, 4, 3, 1, 7, 2, 6, 6, 7, 5, 1, 5, 7, 2, 4, 1, 4, 3, 4, 7, 3, 
2, 5, 4, 6, 4, 5, 1, 2, 3, 2, 6, 2, 2, 3, 3, 6, 3, 4, 6, 3, 2, 
4, 7, 3, 4, 7, 1, 5, 2, 2, 3, 4, 3, 2, 6, 5, 3, 3, 6, 5, 4, 4, 
4, 6, 3, 4, 1, 2, 4, 6, 4, 1, 6, 5, 3, 4, 7, 5, 4, 6, 2, 3, 3, 
7, 3, 5, 3, 6, 7, 4, 2, 6, 3, 4, 7, 5, 4, 3, 1, 7, 5, 3, 2, 2, 
5, 6, 5, 2, 4, 5, 2, 5, 4, 7, 2, 5, 4, 4, 6, 3, 7, 7, 3, 6, 6, 
3, 7, 2, 3, 2, 4, 4, 7, 2, 3, 3, 7, 5, 5, 6, 3, 4, 4, 2, 3, 5, 
6, 2, 3, 4, 7, 3, 7, 5, 5, 2, 4, 7, 2, 6, 7, 3, 5, 4, 5, 6, 6, 
7, 3, 4, 3, 3, 6, 3, 4, 3, 5, 4, 2, 7, 5, 4, 6, 6, 7, 7, 5, 3, 
2, 5, 7, 4, 4, 6, 5, 3, 4, 5, 2, 2, 1, 6, 6, 5, 4, 4, 3, 1, 7, 
2, 6, 6, 7, 5, 1, 5, 7, 2, 4, 1, 4, 3, 4, 7, 3, 2, 5, 4, 6, 4, 
5, 1, 2, 3, 2, 6, 2, 2, 3, 3, 6, 3, 4, 6, 3, 2, 4, 7, 3, 4, 7, 
1, 5, 2, 2, 3, 4, 3, 2, 6, 5, 3, 3, 6, 5, 4, 4, 4, 6, 3, 4, 1, 
2, 4, 6, 4, 1, 6, 5, 3, 4, 7, 5, 4, 6, 2, 3, 3, 7, 3, 5, 3, 6, 
7, 4, 2, 6, 3, 4, 7, 5, 4, 3, 1, 7, 5, 3, 2, 2, 5, 6, 5, 2, 4, 
5, 2, 5, 4, 7, 2, 5, 4, 4, 6, 3, 7, 7, 3, 6, 6, 3, 7, 2, 3, 2, 
4, 4, 7, 2, 3, 3, 7, 5, 5, 6, 3, 4, 4, 2, 3, 5, 6, 2, 3, 4, 7, 
3, 7, 5, 5, 2, 4, 7, 2, 6, 7, 3, 5, 4, 5, 6, 6, 7, 3, 4, 3, 3, 
6, 3, 4, 3, 5, 4, 2, 7, 5, 4, 6, 6, 7, 7, 5, 3, 2, 5, 7, 4, 4, 
6, 5, 3, 4, 5, 2, 2, 1, 6, 6, 5, 4, 4, 3, 1, 7, 2, 6, 6, 7, 5, 
1, 5, 7, 2, 4, 1, 4, 3, 4, 7, 3, 2, 5, 4, 6, 4, 5, 1, 2, 3, 2, 
6, 2, 2, 3, 3, 6, 3, 4, 6, 3, 2, 4, 7, 3, 4, 7, 1, 5, 2, 2, 3, 
4, 3, 2, 6, 5, 3, 3, 6, 5, 4, 4, 4, 6, 3, 4, 1, 2, 4, 6, 4, 1, 
6, 5, 3, 4, 7, 5, 4, 6, 2, 3, 3, 7, 3, 5, 3, 6, 7, 4, 2, 6, 3, 
4, 7, 5, 4, 3, 1, 7, 5, 3, 2, 2, 5, 6, 5, 2, 4, 5, 2, 5, 4, 7, 
2, 5, 4, 4, 6, 3, 7, 7, 3, 6, 6, 3, 7, 2, 3, 2, 4, 4, 7, 2, 3, 
3, 7, 5, 5, 6, 3, 4, 4, 2, 3, 5, 6, 2, 3, 4, 7, 3, 7, 5, 5, 2, 
4, 7, 2, 6, 7, 3, 5, 4, 5, 6, 6, 7, 3, 4, 3, 3, 6, 3, 4, 3, 5, 
4, 2, 7, 5, 4, 6, 6, 7, 7, 5, 3), convince_health = c(6, 5, 7, 
5, 6, 2, 7, 6, 4, 6, 7, 3, 5, 6, 6, 7, 7, 7, 5, 5, 7, 4, 7, 7, 
7, 6, 5, 6, 2, 6, 7, 7, 6, 4, 6, 6, 5, 6, 4, 6, 6, 4, 7, 5, 7, 
3, 4, 5, 4, 7, 7, 6, 6, 6, 7, 5, 7, 7, 7, 6, 6, 6, 4, 1, 6, 6, 
7, 7, 6, 5, 5, 4, 7, 4, 6, 7, 4, 7, 4, 6, 3, 7, 5, 6, 6, 7, 5, 
6, 7, 5, 5, 5, 2, 6, 7, 5, 5, 6, 5, 4, 7, 4, 5, 7, 2, 7, 5, 6, 
6, 5, 6, 6, 7, 5, 4, 6, 7, 6, 7, 7, 6, 7, 7, 7, 6, 6, 7, 7, 7, 
6, 6, 6, 7, 6, 5, 7, 7, 6, 6, 6, 4, 7, 4, 5, 5, 5, 5, 7, 7, 7, 
4, 7, 5, 6, 3, 4, 7, 5, 6, 7, 5, 5, 5, 4, 6, 5, 4, 5, 6, 6, 7, 
6, 5, 6, 6, 6, 5, 7, 7, 6, 7, 6, 7, 5, 6, 4, 7, 5, 5, 7, 5, 5, 
3, 5, 5, 2, 7, 7, 7, 7, 5, 3, 6, 4, 7, 6, 5, 7, 5, 6, 2, 7, 6, 
4, 6, 7, 3, 5, 6, 6, 7, 7, 7, 5, 5, 7, 4, 7, 7, 7, 6, 5, 6, 2, 
6, 7, 7, 6, 4, 6, 6, 5, 6, 4, 6, 6, 4, 7, 5, 7, 3, 4, 5, 4, 7, 
7, 6, 6, 6, 7, 5, 7, 7, 7, 6, 6, 6, 4, 1, 6, 6, 7, 7, 6, 5, 5, 
4, 7, 4, 6, 7, 4, 7, 4, 6, 3, 7, 5, 6, 6, 7, 5, 6, 7, 5, 5, 5, 
2, 6, 7, 5, 5, 6, 5, 4, 7, 4, 5, 7, 2, 7, 5, 6, 6, 5, 6, 6, 7, 
5, 4, 6, 7, 6, 7, 7, 6, 7, 7, 7, 6, 6, 7, 7, 7, 6, 6, 6, 7, 6, 
5, 7, 7, 6, 6, 6, 4, 7, 4, 5, 5, 5, 5, 7, 7, 7, 4, 7, 5, 6, 3, 
4, 7, 5, 6, 7, 5, 5, 5, 4, 6, 5, 4, 5, 6, 6, 7, 6, 5, 6, 6, 6, 
5, 7, 7, 6, 7, 6, 7, 5, 6, 4, 7, 5, 5, 7, 5, 5, 3, 5, 5, 2, 7, 
7, 7, 7, 5, 3, 6, 4, 7, 6, 5, 7, 5, 6, 2, 7, 6, 4, 6, 7, 3, 5, 
6, 6, 7, 7, 7, 5, 5, 7, 4, 7, 7, 7, 6, 5, 6, 2, 6, 7, 7, 6, 4, 
6, 6, 5, 6, 4, 6, 6, 4, 7, 5, 7, 3, 4, 5, 4, 7, 7, 6, 6, 6, 7, 
5, 7, 7, 7, 6, 6, 6, 4, 1, 6, 6, 7, 7, 6, 5, 5, 4, 7, 4, 6, 7, 
4, 7, 4, 6, 3, 7, 5, 6, 6, 7, 5, 6, 7, 5, 5, 5, 2, 6, 7, 5, 5, 
6, 5, 4, 7, 4, 5, 7, 2, 7, 5, 6, 6, 5, 6, 6, 7, 5, 4, 6, 7, 6, 
7, 7, 6, 7, 7, 7, 6, 6, 7, 7, 7, 6, 6, 6, 7, 6, 5, 7, 7, 6, 6, 
6, 4, 7, 4, 5, 5, 5, 5, 7, 7, 7, 4, 7, 5, 6, 3, 4, 7, 5, 6, 7, 
5, 5, 5, 4, 6, 5, 4, 5, 6, 6, 7, 6, 5, 6, 6, 6, 5, 7, 7, 6, 7, 
6, 7, 5, 6, 4, 7, 5, 5, 7, 5, 5, 3, 5, 5, 2, 7, 7, 7, 7, 5, 3, 
6, 4, 7, 6, 5, 7, 5, 6, 2, 7, 6, 4, 6, 7, 3, 5, 6, 6, 7, 7, 7, 
5, 5, 7, 4, 7, 7, 7, 6, 5, 6, 2, 6, 7, 7, 6, 4, 6, 6, 5, 6, 4, 
6, 6, 4, 7, 5, 7, 3, 4, 5, 4, 7, 7, 6, 6, 6, 7, 5, 7, 7, 7, 6, 
6, 6, 4, 1, 6, 6, 7, 7, 6, 5, 5, 4, 7, 4, 6, 7, 4, 7, 4, 6, 3, 
7, 5, 6, 6, 7, 5, 6, 7, 5, 5, 5, 2, 6, 7, 5, 5, 6, 5, 4, 7, 4, 
5, 7, 2, 7, 5, 6, 6, 5, 6, 6, 7, 5, 4, 6, 7, 6, 7, 7, 6, 7, 7, 
7, 6, 6, 7, 7, 7, 6, 6, 6, 7, 6, 5, 7, 7, 6, 6, 6, 4, 7, 4, 5, 
5, 5, 5, 7, 7, 7, 4, 7, 5, 6, 3, 4, 7, 5, 6, 7, 5, 5, 5, 4, 6, 
5, 4, 5, 6, 6, 7, 6, 5, 6, 6, 6, 5, 7, 7, 6, 7, 6, 7, 5, 6, 4, 
7, 5, 5, 7, 5, 5, 3, 5, 5, 2, 7, 7, 7, 7, 5, 3, 6, 4, 7, 6, 5, 
7, 5, 6, 2, 7, 6, 4, 6, 7, 3, 5, 6, 6, 7, 7, 7, 5, 5, 7, 4, 7, 
7, 7, 6, 5, 6, 2, 6, 7, 7, 6, 4, 6, 6, 5, 6, 4, 6, 6, 4, 7, 5, 
7, 3, 4, 5, 4, 7, 7, 6, 6, 6, 7, 5, 7, 7, 7, 6, 6, 6, 4, 1, 6, 
6, 7, 7, 6, 5, 5, 4, 7, 4, 6, 7, 4, 7, 4, 6, 3, 7, 5, 6, 6, 7, 
5, 6, 7, 5, 5, 5, 2, 6, 7, 5, 5, 6, 5, 4, 7, 4, 5, 7, 2, 7, 5, 
6, 6, 5, 6, 6, 7, 5, 4, 6, 7, 6, 7, 7, 6, 7, 7, 7, 6, 6, 7, 7, 
7, 6, 6, 6, 7, 6, 5, 7, 7, 6, 6, 6, 4, 7, 4, 5, 5, 5, 5, 7, 7, 
7, 4, 7, 5, 6, 3, 4, 7, 5, 6, 7, 5, 5, 5, 4, 6, 5, 4, 5, 6, 6, 
7, 6, 5, 6, 6, 6, 5, 7, 7, 6, 7, 6, 7, 5, 6, 4, 7, 5, 5, 7, 5, 
5, 3, 5, 5, 2, 7, 7, 7, 7, 5, 3, 6, 4, 7, 6, 5, 7, 5, 6, 2, 7, 
6, 4, 6, 7, 3, 5, 6, 6, 7, 7, 7, 5, 5, 7, 4, 7, 7, 7, 6, 5, 6, 
2, 6, 7, 7, 6, 4, 6, 6, 5, 6, 4, 6, 6, 4, 7, 5, 7, 3, 4, 5, 4, 
7, 7, 6, 6, 6, 7, 5, 7, 7, 7, 6, 6, 6, 4, 1, 6, 6, 7, 7, 6, 5, 
5, 4, 7, 4, 6, 7, 4, 7, 4, 6, 3, 7, 5, 6, 6, 7, 5, 6, 7, 5, 5, 
5, 2, 6, 7, 5, 5, 6, 5, 4, 7, 4, 5, 7, 2, 7, 5, 6, 6, 5, 6, 6, 
7, 5, 4, 6, 7, 6, 7, 7, 6, 7, 7, 7, 6, 6, 7, 7, 7, 6, 6, 6, 7, 
6, 5, 7, 7, 6, 6, 6, 4, 7, 4, 5, 5, 5, 5, 7, 7, 7, 4, 7, 5, 6, 
3, 4, 7, 5, 6, 7, 5, 5, 5, 4, 6, 5, 4, 5, 6, 6, 7, 6, 5, 6, 6, 
6, 5, 7, 7, 6, 7, 6, 7, 5, 6, 4, 7, 5, 5, 7, 5, 5, 3, 5, 5, 2, 
7, 7, 7, 7, 5, 3, 6, 4, 7)), class = "data.frame", row.names = c(NA, 
-1230L))

标签： rif-statementconditional-statementstidyverse

Answer 1

这是这种情况下的“典型” tidyverse 语法：

dflong <- dflong %>%
  mutate(convince_min = case_when( 
    triad == "triad_ah" ~ pmin(convince_animals, convince_health), 
    TRUE ~ 99
  ))

笔记

• .$由于整洁的评估，没有必要在列名前面加上前缀。
• 我已将第二个条件替换为triad == TRUE，TRUE因为这是一个“包罗万象”的条件，它将解释除triad == "triad_ah". 条件的顺序case_when()应该从最具体到最一般。
• 我已经min()用pmin()which 替换了比较两列，返回列位置处两个元素中每个元素的最小值i，对于 all i。