我正在尝试：

首先-隔离两个特定列中的响应为NA的行数（因此，我可以确保就删除了多少响应而言，我已经正确完成了第二步）。

第二个-编写代码以删除两列的响应均为2或两列均为NA的行（可以保留为1的行）。

步骤1-COUNT： 我可以单独总结

sum(is.na(data$columnname1))
sum(is.na(data$columnname2))

但是我需要知道的是两者中都没有多少NA。我已经尝试过这种方法和其他同样不正确的方法，但是没有运气-

sum[(is.na(data$columnname1)) & (is.na(columnname2))]

第2步-删除： 我尝试了几种选择：

data = data[data$columnname1 == 1 | data$columnname2 == 1,]

但这不涉及NAs

我也尝试过：

data <- data[is.na(data$columnname1 & data$columnname2) == FALSE,(data$columnname1 == 1 | data$columnname2 == 1,)]

，但是在尝试运行它之前，我收到有关不正确令牌的错误消息。

如果我这样做了，可以删除两个都不适用的地方吗？

data <- data[complete.cases(data[,c("columnname1","columnname2")]),] 

如果是这样，我需要先运行它吗？

data = data[data$columnname1 == 1 | data$columnname2 == 1,] first?