如果在 R 的特定列范圍內包含零，如何刪除整行？

Question

如果我的數據框是：

        A1  A2  B1  B2  C1  C2
row1    67  8   0   99  67  84 
row2    8   22  25  5   72  0 
row3    0   83  35  68  17  13 
row4    69  37  52  93  67  78 
row5    68  64  68  90  61  38 
row6    16  30  2   19  40  1 
row7    49  86  87  87  62  64 
row8    28  97  42  0   54  83 
row9    43  68  26  8   64  35 

我想刪除列 B1 和 B2 之間包含零的行。 A1 和 C2 為零，但我想保留它們。 所以我最終的 output 應該是：

        A1  A2  B1  B2  C1  C2
row2    8   22  25  5   72  0 
row3    0   83  35  68  17  13 
row4    69  37  52  93  67  78 
row5    68  64  68  90  61  38 
row6    16  30  2   19  40  1 
row7    49  86  87  87  62  64 
row9    43  68  26  8   64  35 

Answer 1

您可以在基礎 R 中使用rowSums ：

cols <- c('B1', 'B2')
df[rowSums(df[cols] == 0) == 0, ]

#     A1 A2 B1 B2 C1 C2
#row2  8 22 25  5 72  0
#row3  0 83 35 68 17 13
#row4 69 37 52 93 67 78
#row5 68 64 68 90 61 38
#row6 16 30  2 19 40  1
#row7 49 86 87 87 62 64
#row9 43 68 26  8 64 35

或使用dplyr

library(dplyr)
df %>% filter_at(vars(B1:B2), all_vars(. != 0))

Answer 2

簡單dplyr代碼

library(tidyverse)

data_example <- data.table::fread("row        A1  A2  B1  B2  C1  C2
row1    67  8   0   99  67  84 
row2    8   22  25  5   72  0 
row3    0   83  35  68  17  13 
row4    69  37  52  93  67  78 
row5    68  64  68  90  61  38 
row6    16  30  2   19  40  1 
row7    49  86  87  87  62  64 
row8    28  97  42  0   54  83 
row9    43  68  26  8   64  35 ")

data_example %>% 
  filter(across(c(B1:B2),.fns = ~ .x != 0))
#>     row A1 A2 B1 B2 C1 C2
#> 1: row2  8 22 25  5 72  0
#> 2: row3  0 83 35 68 17 13
#> 3: row4 69 37 52 93 67 78
#> 4: row5 68 64 68 90 61 38
#> 5: row6 16 30  2 19 40  1
#> 6: row7 49 86 87 87 62 64
#> 7: row9 43 68 26  8 64 35

^{由代表 package (v0.3.0) 於 2020 年 6 月 6 日創建}

Answer 3

在base R中，我們可以使用lapply和Reduce

cols <- c('B1', 'B2')
df[!Reduce(`!`, lapply(df[cols], `==`, 0)),]
#      A1 A2 B1 B2 C1 C2
#row2  8 22 25  5 72  0
#row3  0 83 35 68 17 13
#row4 69 37 52 93 67 78
#row5 68 64 68 90 61 38
#row6 16 30  2 19 40  1
#row7 49 86 87 87 62 64
#row9 43 68 26  8 64 35

---

或使用

df[Reduce(`&`, lapply(df[cols], `!=`, 0)),]

數據

df <- structure(list(A1 = c(67L, 8L, 0L, 69L, 68L, 16L, 49L, 28L, 43L
), A2 = c(8L, 22L, 83L, 37L, 64L, 30L, 86L, 97L, 68L), B1 = c(0L, 
25L, 35L, 52L, 68L, 2L, 87L, 42L, 26L), B2 = c(99L, 5L, 68L, 
93L, 90L, 19L, 87L, 0L, 8L), C1 = c(67L, 72L, 17L, 67L, 61L, 
40L, 62L, 54L, 64L), C2 = c(84L, 0L, 13L, 78L, 38L, 1L, 64L, 
83L, 35L)), class = "data.frame", row.names = c("row1", "row2", 
"row3", "row4", "row5", "row6", "row7", "row8", "row9"))