如何筛选矩阵中NA的排他性组合（精准定位目标行）

要实现精准筛选，必须同时满足两个条件：目标列为NA，且其余所有列均不为NA。以下是针对你需求的具体实现代码：

1. 提取仅第1列有NA的行名 #

# 筛选逻辑：第1列是NA，且其他所有列都不是NA
row_names_col1_only <- rownames(df)[auxmatrix[, 1] & rowSums(auxmatrix[, -1]) == 0]

• auxmatrix[, 1]：判断每行第1列是否为NA
• rowSums(auxmatrix[, -1]) == 0：计算除第1列外所有列的NA数量，和为0表示这些列完全没有NA

2. 提取仅第3、4列有NA的行名 #

# 筛选逻辑：第3、4列是NA，且其他所有列都不是NA
row_names_col34_only <- rownames(df)[auxmatrix[, 3] & auxmatrix[, 4] & rowSums(auxmatrix[, -c(3, 4)]) == 0]

• auxmatrix[, 3] & auxmatrix[, 4]：确保每行第3、4列同时为NA
• rowSums(auxmatrix[, -c(3, 4)]) == 0：计算除3、4列外所有列的NA数量，和为0表示这些列完全没有NA

替代写法（列数较少时适用） #

如果矩阵列数不多，也可以直接逐列判断，逻辑更直观：

# 仅第1列有NA的行名
row_names_col1_only <- rownames(df)[auxmatrix[,1] & !auxmatrix[,2] & !auxmatrix[,3] & !auxmatrix[,4] & !auxmatrix[,5]]

# 仅第3、4列有NA的行名
row_names_col34_only <- rownames(df)[!auxmatrix[,1] & !auxmatrix[,2] & auxmatrix[,3] & auxmatrix[,4] & !auxmatrix[,5]]

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