创建在R中显示多列匹配项的新列

# 创建一个示例数据框
data <- data.frame(
  column1 = c("apple", "banana", "orange"),
  column2 = c("orange", "apple", "grape"),
  column3 = c("grape", "banana", "apple")
)

# 使用grepl函数检查每一行中的多列是否包含匹配项
matches <- apply(data, 1, function(row) {
  grepl("apple", row) & grepl("orange", row)
})

# 使用ifelse函数创建新列
data$new_column <- ifelse(matches, "Match", "No Match")

# 打印结果
print(data)

  column1 column2 column3 new_column
1   apple  orange   grape   No Match
2  banana   apple  banana   No Match
3  orange   grape   apple      Match