如何用R移除数据集中第10-55列全为NA的行？

我有一个包含340行、55列的数据集df1，需要筛选并移除第10至55列全为NA的行。我尝试了以下代码：

df2 <- df1[!is.na(c(df1$x10:df1$x55))] 

但运行后出现错误：

Error in df1$x10:df1$x55 : 
  NA/NaN argument
In addition: Warning messages:
1: In df1$x10:df1$x55 :
  numerical expression has 340 elements: only the first used
2: In df1$x10:df1$x55 :
  numerical expression has 340 elements: only the first used

原代码出错原因 #

你用的df1$x10:df1$x55是错误的写法：:运算符是用来生成连续整数序列的，但df1$x10是整个第10列的向量（340个元素），R只会取第一个元素来生成序列，完全不是你想要的“选中第10到55列”的操作，所以才会触发报错和警告。

正确实现方法 #

方法一：Base R原生实现

直接选中第10-55列，判断每行是否存在非NA值，保留符合条件的行：

# 计算每行第10-55列中非NA值的数量，筛选数量>0的行
keep_rows <- rowSums(!is.na(df1[, 10:55])) > 0
df2 <- df1[keep_rows, ]

或者用更直观的逻辑判断：

# 检查每行第10-55列是否全为NA，取反后保留非全NA的行
df2 <- df1[!apply(df1[, 10:55], 1, function(row) all(is.na(row))), ]

方法二：dplyr tidy风格实现

如果你习惯用tidyverse工具链，可以用dplyr的filter结合if_all：

library(dplyr)

df2 <- df1 %>%
  filter(!if_all(10:55, is.na))

if_all(10:55, is.na)会逐行检查第10-55列是否全为NA，取反后就保留了不全为NA的行。

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