R tidyverse中如何仅删除指定的全为NA值的单列？

你可以直接将判断逻辑嵌入dplyr的select()语句中，完全适配tidyverse的管道写法，不需要单独写分支判断：

Orders <- Orders %>%
  select(
    everything(),
    -if(all(is.na(Originator))) "Originator" else NULL
  )

这个写法的逻辑非常直观：先保留所有原列，仅当Originator列全为NA时，追加删除该列的操作；如果判断不成立，if返回NULL，删除操作不会生效，不会影响任何原有列。

如果你需要复用这个逻辑，也可以封装成通用的小函数，适配任意指定列的按需删除需求：

# 通用封装函数：仅当指定列全为NA时删除该列，其余列不受影响
drop_col_if_all_na <- function(data, target_col) {
  data %>%
    select(
      everything(),
      -if(all(is.na(.data[[target_col]]))) target_col else NULL
    )
}

# 调用示例
Orders <- Orders %>%
  drop_col_if_all_na("Originator")

以上两种写法的执行效果和你当前使用的临时方案完全一致，且可以无缝嵌入长管道链中，不需要中断流程单独写分支判断，代码可读性和整洁度更高。

内容的提问来源于stack exchange，提问作者Bob Janson