在R中匹配字符串中的多个模式

text <- c("apple", "banana", "orange", "grape")
pattern <- c("a", "e")
result <- grep(paste(pattern, collapse="|"), text, value=TRUE)
print(result)

[1] "apple"  "banana" "grape" 

text <- c("apple", "banana", "orange", "grape")
pattern <- c("a", "e")
result <- grepl(paste(pattern, collapse="|"), text)
print(result)

[1]  TRUE  TRUE FALSE  TRUE

text <- "apple,banana,orange,grape"
pattern <- c("a", "e")
replacement <- c("A", "E")
result <- gsub(paste(pattern, collapse="|"), replacement, text)
print(result)

[1] "ApplE,bAnAnA,orAngE,grApE"

text <- "apple,banana,orange,grape"
pattern <- c("a", "e")
result <- regmatches(text, regexpr(paste(pattern, collapse="|"), text))
print(result)

[1] "a" "e" "a" "a" "e" "a" "e"