Saya memiliki vektor karakter r % if(length(r) > 0) mutate(Test = 1) else . Ini tidak berfungsi ketika saya memperluas untuk menambahkan ...

4
Ujjawal Bhandari 17 Juni 2021, 21:46

1 menjawab

Kode di bawah ini akan menambahkan variabel jika kondisi terpenuhi. Jika tidak, itu akan menambahkan variabel yang diisi semua NA dan akhirnya menghapusnya (saya mengerti Anda memerlukan variabel baru hanya jika kondisinya terpenuhi).

library(dplyr)

r <- c()

iris %>% 
  mutate(test2=if_else(length(r)>0, 2, NULL)) %>% 
  select(where(~ !(all(is.na(.))))) #remove columns with all NAs 
0
marqui 17 Juni 2021, 19:14