R中grep函数在不同上下限情况下的应用

Question

我目前正在检查文本元素是否：

品牌<- c(耐克、阿迪达斯、D&G)

可在载体中找到：

文本<- c(“我爱耐克”，“我爱阿迪达斯”)

为此，我使用了以下代码：

brands_subset <-唯一(grep(粘贴(文本，collapse=“\”)，品牌，value=TRUE))

但是，只有在品牌和文本元素的上下大小写匹配的情况下，这才有效。是否有任何方法可以在品牌和文本元素之间找到匹配，即使我有如下文本元素：

文本<- c(“我爱耐克”，“我爱阿迪达斯”)。

Answer 1

您需要粘贴/折叠模式，而不是文本，所以paste(brands,..).

• grep(..., ignore.case=TRUE).

brands <- c("nike", "adidas", "d&g")  # lower-case here
text <- c("I love Nike", "I love Adidas")
unique (grep(paste(brands,collapse="|"), text, value=TRUE, ignore.case=TRUE))
# [1] "I love Nike"   "I love Adidas"