如果 2 个特定列 (R) 中有零，则删除行

Question

我有一个这样的数据框

    col1 col2 col3 col4
row1   1   0     6    7
row2   5   7     0    6
row3   0   0     4    6

我只需要删除第 1 列和第 2 列中包含零的行。到目前为止，我已经设法删除了所有包含零的列：

mk<-mk[apply(mk!=0, 1, all),]

但不知道如何专门限制为仅在第 1 列和第 2 列中具有零的行。

预期结果：

    col1 col2 col3 col4
row1   1   0     6    7
row2   5   7     0    6

Answer 1

我们可以使用rowSums创建逻辑向量。 即子集'mk'的前两列，检查它是否等于0，获取逻辑矩阵的rowSums并转换为< 2的逻辑向量，将其用作行索引以对行进行子集化

mk[rowSums(mk[, 1:2] == 0) < 2,]
#     col1 col2 col3 col4
#row1    1    0    6    7
#row2    5    7    0    6

---

或者使用apply

mk[!apply(mk[, 1:2]==0, 1, all),]
#     col1 col2 col3 col4
#row1    1    0    6    7
#row2    5    7    0    6

或者与any

mk[apply(mk[, 1:2], 1, any),]

数据

mk <- structure(c(1L, 5L, 0L, 0L, 7L, 0L, 6L, 0L, 4L, 7L, 6L, 6L), 
.Dim = 3:4, .Dimnames = list(
    c("row1", "row2", "row3"),
    c("col1", "col2", "col3", "col4"
    )))