根據兩列中值的組合從數據框中提取行

Question

我有一個數據框

a <- c('A','A','A','A','B','B','C','C')
b <- c(1,2,1,3,1,3,1,6)
c <- c('K','K','H','H','K','K','H','H')

frame <- data.frame(a,b,c)

> frame
  a b c
1 A 1 K
2 A 2 K
3 A 1 H
4 A 3 H
5 B 1 K
6 B 3 K
7 C 1 H
8 C 6 H

現在我想通過以下方式提取數據：如果“a”中的字符串出現在帶有“K”的行中並且出現在帶有“H”的行中，則帶有“K”的行將被忽略。 最后它應該是這樣的：

> frame
  a b c
1 A 1 H
2 A 3 H
3 B 1 K
4 B 3 K
5 C 1 H
6 C 6 H

也許你有什么想法。 謝謝！

Answer 1

您可以使用intersect在列c中查找a H和K的字符串，然后提取列c包含K的字符串。

frame[!(frame$a %in% intersect(frame$a[frame$c=="K"],
   frame$a[frame$c=="H"]) & frame$c=="K"),]
#  a b c
#3 A 1 H
#4 A 3 H
#5 B 1 K
#6 B 3 K
#7 C 1 H
#8 C 6 H

Answer 2

我們可以通過filter使用一個組

library(dplyr)
frame %>%
    group_by(a) %>%
    filter(all(c('K', 'H') %in% c) & c != 'K'|n_distinct(c) == 1)
# A tibble: 6 x 3
# Groups:   a [3]
#  a         b c    
#  <fct> <dbl> <fct>
#1 A         1 H    
#2 A         3 H    
#3 B         1 K    
#4 B         3 K    
#5 C         1 H    
#6 C         6 H