library(tidyverse)
df <- data.frame(
a1 = c(14,23,24,6,4),
a2 = c(5,67,4,57,54),
a3 = c("Paul", "John", "Mike", "Peter", "John"),
a4 = c("John", "Phil", "Peter", "John", "Luke"),
a5 = c("Dave", "Peter", "Nick", "Paul", "Phil"),
a6 = c("Adrian", "Keim", "Rick", "Luke", "Mike"),
a7 = c("Rick", "Luke", "Adrian", "Rick", "Dave")
)
df %>%
filter_all(
any_vars(. == "Peter")
) %>%
filter_all(
any_vars(. == "John")
)
谢谢,这很容易并且有效!