如何获得R中非唯一值的唯一键

选项将在按“filen”分组之后, filter 在哪里 all 所需的元素 vector 存在 %in% “disp”列,然后 ungroup 然后得到 distinct “filen”中的元素

library(dplyr)
df %>% 
  group_by(fileN) %>%
  filter(all(c('fail', 'account') %in% disp)) %>%
  ungroup %>%
  distinct(fileN)
# A tibble: 2 x 1
#  fileN
#  <fct>
#1 510-1
#2 510-3

如果这些是唯一可能的值,另一个选项是

distinct(df) %>% 
    group_by(fileN) %>% 
    filter(n() == 2) %>% 
    distinct(fileN)

几个R基选项

v = tapply(df$disp, df$fileN, function(x){
    all(c("account", "fail") %in% x)
})
v[v]
#510-1 510-3 
# TRUE  TRUE 

#OR

with(aggregate(disp ~ fileN, df, function(x){
    all(c("account", "fail") %in% x)
}), fileN[disp])
#[1] 510-1 510-3
#Levels: 510-1 510-2 510-3