【R】根据列的值选择列

【目标】去除数据框中全是空白“”的列

df <- data.frame(A=c("Apple","Banana","Orange","Peach"),B=c("","","",""),C=c("car","bus",NA,"truck"))
> df
       A B     C
1  Apple     car
2 Banana     bus
3 Orange    <NA>
4  Peach   truck

【代码】

df %>% select(where(~!identical(.x,rep("",4))))
       A     C
1  Apple   car
2 Banana   bus
3 Orange  <NA>
4  Peach truck