R - 计数一个字符串和另一个字符之间的匹配项，无替换

Question

我有一个关键字（例如“绿色”）和一些文本（“我不喜欢他们山姆我是！”）。

我想看看关键字（'g'，'r'，'e'，'e'，'n'）中有多少个字符出现在文本中（以任何顺序）。

在这个例子中，答案是3 - 文本不具有A G或R，但具有两个居和N.

我的问题出现了，其中，如果在文本中的字符与字符匹配在关键字中，则不能用来匹配关键字中的不同字符。

例如，如果我的关键字是'greeen'，则“匹配字符”的数目仍然是3（一个N和两个Es），因为文本中只有两个Es，而不是3（与第三个E在关键字中）。

如何在R中编写此代码？这只是在我记忆力的边缘点出了一些东西 - 我觉得这是一个普遍的问题，但措辞不同（有点像取样没有替代品，但是“没有替代品相匹配”）。

E.g.

• '绿色'， 'idonotlikethemsamiam'，3（G，E，E）
• “greeen：预期的输入/输出（关键词，文本，预期输出）

  keyword <- strsplit('greeen', '')[[1]] 
  text <- strsplit('idonotlikethemsamiam', '')[[1]] 
  # how many characters in keyword have matches in text, 
  # with no replacement? 
  # Attempt 1: sum(keyword %in% text) 
  # PROBLEM: returns 4 (all three Es match, but only two in text) 
  

  更多实例”， 'idonotlikethemsamiam'，3（G，E，E）

• '红'， 'idonotlikethemsamiam'，2（E和d）

Answer 1

函数pmatch（）对此很好。尽管在这里使用长度会是本能的，但长度没有na.rm选项。所以为了解决这个问题，使用sum（！is.na（））。

keyword <- unlist(strsplit('greeen', '')) 
text <- unlist(strsplit('idonotlikethemsamiam', '')) 

sum(!is.na(pmatch(keyword, text))) 

# [1] 3 

keyword2 <- unlist(strsplit("red", '')) 
sum(!is.na(pmatch(keyword2, text))) 

# [1] 2 

Answer 2

也许你想找到独特的组成部分您的关键字？试试：

keyword <- unique(strsplit('greeen','')[[1]])