是否有 R function 用于在 2 个条件下使用 ifelse

Question

这是我的数据样本

a<-c(NA,NA,NA,65,75,85)
b<-c(12,15,22,65,20,30)
c<-(12,15,22,65,75,85)
data<-data.frame(a,b,c)

我正在尝试创建一个新变量 d，这样如果 a=NA 然后 b，如果 a=b 然后 a，最后，如果 a>b 然后 a。

我的最终数据d<-c(12,15,22,65,75,85)

谢谢

Answer 1

这是使用dplyr::case_when完成的操作 请注意，在此代码中，如果a < b将产生NA值。

library(dplyr)

data %>%
  mutate(d = case_when(
    is.na(a) ~ b,
    a == b ~ a,
    a > b ~ a
  ))
#>    a  b  c  d
#> 1 NA 12 12 12
#> 2 NA 15 15 15
#> 3 NA 22 22 22
#> 4 65 65 65 65
#> 5 75 20 75 75
#> 6 85 30 85 85

^{由reprex package (v2.0.0) 于 2021 年 5 月 19 日创建}