错误：情况 1 (`.`) 必须是双面公式，而不是 `data.frame` 对象

Question

错误：情况 1 (`.`) 必须是双面公式，而不是 `data.frame` 对象

mel*_*bez 3 if-statement r conditional-statements tidyverse

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

我的数据如下所示：

triad         convince_animals  convince_health 
triad_ah      4                 5
not_triad_ah  2                 3

Run Code Online (Sandbox Code Playgroud)

这是我想要的输出：

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

Run Code Online (Sandbox Code Playgroud)

我通过两种方式尝试过这一点。我认为使用 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.

Run Code Online (Sandbox Code Playgroud)

尝试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)

Run Code Online (Sandbox Code Playgroud)

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

数据：

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,

Answer 1

qdr*_*ead 5

这是本例的“典型”tidyverse 语法：

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

Run Code Online (Sandbox Code Playgroud)

笔记

.$由于整洁的评估，不需要在列名前添加前缀。
我已将第二个条件替换triad == TRUE为，TRUE因为这是一个“包罗万象”的条件，将考虑除之外的所有情况triad == "triad_ah"。条件的顺序case_when()应从最具体到最一般。
我已替换min()为比较两列，返回列位置pmin()处两个元素中每个元素的最小值，对于所有.ii

归档时间：	5 年，3 月前
查看次数：	15506 次
最近记录：	5 年，3 月前