如何跨R中的多个列为grep选择多个值？

# 创建一个示例数据框
df <- data.frame(
  col1 = c("apple", "banana", "grape"),
  col2 = c("orange", "kiwi", "watermelon"),
  col3 = c("pear", "mango", "pineapple")
)

# 定义要匹配的值
values <- c("apple", "banana")

# 使用apply函数进行跨列选择多个值
matching_rows <- apply(df, 1, function(row) any(grepl(paste(values, collapse = "|"), row)))

# 返回匹配成功的行
result <- df[matching_rows, ]

# 加载dplyr包
library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  col1 = c("apple", "banana", "grape"),
  col2 = c("orange", "kiwi", "watermelon"),
  col3 = c("pear", "mango", "pineapple")
)

# 定义要匹配的值
values <- c("apple", "banana")

# 使用mutate函数进行跨列选择多个值
result <- df %>%
  mutate(matches = rowSums(across(everything(), ~ grepl(paste(values, collapse = "|"), .)))) %>%
  filter(matches > 0) %>%
  select(-matches)