R 列中的所有值都是真的吗忽略NA

发布于01月05日

I am working in R个

编辑:希望得到dplyr的建议

sample data:个

df <- data.frame(col1 = c(TRUE, TRUE, NA, NA), 
                 col2 = c(FALSE,  TRUE, FALSE, NA), 
                 col3 = c(NA, TRUE, NA, TRUE))

print(df)

col1	col2	col3
TRUE	FALSE	NA
TRUE	TRUE	TRUE
NA	FALSE	NA
NA	NA	TRUE

Desired outcome个

我希望有一种方法来判断Col1--&gt；col3是否都是真的，而不考虑Nas.

col1	col2	col3	assessment
TRUE	FALSE	NA	FALSE
TRUE	TRUE	TRUE	TRUE
NA	FALSE	NA	FALSE
NA	NA	TRUE	TRUE

推荐答案

用dplyr或者用rowwise

df %>% 
  rowwise() %>% 
  mutate(assessment = all(across(everything()), na.rm=T)) %>% 
  ungroup()
# A tibble: 4 × 4
  col1  col2  col3  assessment
  <lgl> <lgl> <lgl> <lgl>     
1 TRUE  FALSE NA    FALSE     
2 TRUE  TRUE  TRUE  TRUE      
3 NA    FALSE NA    FALSE     
4 NA    NA    TRUE  TRUE

或者使用pick，谢谢@r2evans

mutate(df, assessment = apply(pick(col1:col3), 1, \(x) all(x, na.rm = TRUE)))
  col1  col2 col3 assessment
1 TRUE FALSE   NA      FALSE
2 TRUE  TRUE TRUE       TRUE
3   NA FALSE   NA      FALSE
4   NA    NA TRUE       TRUE

使用base R，使用all

cbind(df, assessment = apply(df, 1, \(x) all(x, na.rm=T)))
  col1  col2 col3 assessment
1 TRUE FALSE   NA      FALSE
2 TRUE  TRUE TRUE       TRUE
3   NA FALSE   NA      FALSE
4   NA    NA TRUE       TRUE