2番目のifelseが評価されないのはなぜですか？

Question

以下のコードでは、なぜ2番目のifelse()が評価されないのか分かりません。誰か説明できますか？ ifelseステートメントを書き直すには？

最後の行のy1==1とy2==1が一致し、列結果は1で埋められる必要があります。

df <- data.frame(x1=c(0,0,NA,NA,NA),y1=c(NA,NA,NA,NA,1),x2=c(0,NA,NA,0,NA), 
       y2=c(1,NA,NA,NA,1)) 

df$result <- with(df, ifelse((x1==0 & x2==0), 0, ifelse((y1==1 & y2==1), 1, 100))) 

Answer 1

この試してみてください：あなたはif()とを使用したい場合はapply()とif()

を使用して

> df 
    x1 y1 x2 y2 result 
1 0 NA 0 1  0 
2 0 NA NA NA  NA 
3 NA NA NA NA  NA 
4 NA NA 0 NA  NA 
5 NA 1 NA 1  1 

ソリューション：

df$result <- with(df, ifelse((x1==0 & x2==0) & !is.na(x1==0 & x2==0), 0, 
          ifelse((y1==1 & y2==1), 1, 100))) 

の検索結果をの代わりifelse()を行う：

df$result = apply(df,1,function(x){ 

    if(is.na(x["x1"]==0 & x["x2"]==0) & is.na(x["y1"]==1 & x["y2"]==1)){ 
     return(NA) 
    } 

    if(!is.na(x["x1"]==0 & x["x2"]==0) & (x["x1"]==0 & x["x2"]==0)){ 
     return(0) 
    }else if(!is.na(x["y1"]==1 & x["y2"]==1) & (x["y1"]==1 & x["y2"]==1)){ 
     return(1) 
    }else{ 
     return(100) 
    } 

}) 

結果は上記と同様です。

Answer 2

NAを評価することはできません。 (x1==0 & x2==0)があることに注意してくださいTRUE, NA, NA, NA のでifelse( (df$x1==0 & df$x2==0), 0, "Something)0, NA, NA, NA

は、私は、次の

library(dplyr) 
df$result <- case_when(df$x1==0 & df$x2==0 & !is.na(df$x1) & !is.na(df$x2) ~ 0, 
        df$y1==1 & df$y2==1 ~ 1, 
        TRUE ~ 100)) 

Answer 3

我々はpmaxと

df$result <- pmax(+(!!rowSums(df[c(TRUE, FALSE)])), 
      +(!!rowSums(df[c(FALSE, TRUE)])), na.rm = TRUE) 
df$result 
#[1] 0 NA NA NA 1