如何跨R中的多个列使用部分匹配来设置终值

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

# 定义部分匹配的关键词
keywords <- c("apple", "orange")

# 使用apply函数进行部分匹配并设置终值
df <- apply(df, 1, function(row) {
  ifelse(any(grepl(paste(keywords, collapse = "|"), row)), "matched", "not matched")
})

library(dplyr)

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

# 定义部分匹配的关键词
keywords <- c("apple", "orange")

# 使用mutate函数进行部分匹配并设置终值
df <- df %>%
  mutate(matched = ifelse(rowSums(across(everything(), ~grepl(paste(keywords, collapse = "|"), .x))) > 0, "matched", "not matched"))