R 如果某些列全部为NA，则更改列

以下任何一种以及更多的方法都可以奏效:

df %>% 
   mutate(check = check*NA^if_all(empl:hum_aid, is.na))

df %>%
   mutate(check = `is.na<-`(check, if_all(empl:hum_aid, is.na)))

df %>%
   mutate(check = if_else(if_all(empl:hum_aid, is.na), NA, check))

df %>%
    mutate(check = ifelse(!rowSums(!is.na(pick(empl:hum_aid))), NA, check))

结果:

# A tibble: 13 × 11
    HHID strata  rand  empl agric loans assets remittances govt_aid hum_aid check
   <dbl> <chr>  <dbl> <dbl> <dbl> <dbl>  <dbl>       <dbl>    <dbl>   <dbl> <int>
 1     1 Urban  23145  1000   750     0    500           0        0       0     0
 2     2 Rural  13755  1750   650   350      0         200        0       0     0
 3     3 Rural  17890   480   400   300      0        1500     1200     800     1
 4     4 Urban  25634   630   400     0      0        1250     1000    1200     1
 5     5 Rural  56231  1200     0     0    700           0        0       0     0
 6     6 Rural  96541  1000   750  1200      0         500        0       0     0
 7     7 Urban  23654  1700     0   500      0         700        0      NA     0
 8     8 Urban  52361   500     0   250    500         900      900    1400     1
 9     9 Rural  74125   300   750   500    150        1200     1300    1500     1
10    10 Rural  96124     0     0     0      0           0        0       0     0
11    11 Urban  37851   400   300   700    500        1000      800     200     0
12    12 Rural  85321   900   900     0    750           0        0    1100     0
13    13 Urban  64123    NA    NA    NA     NA          NA       NA      NA    NA