R部分字符串匹配忽略全向空格

Question

我在部分字符串匹配方面遇到问题。 我有一对人，我需要比较他们的名字。 为此，我对两个姓氏进行了两个方向的charmatch运算，以查看name1是否为name2的一部分，反之亦然。 我下面有一个小的数据集来演示这个问题。 我在下面使用charmatch； 我也使用了pmatch，它返回相同的结果。

当charmatch说其第二个参数中的第一个参数的元素寻求匹配...我认为这意味着它将把element1中的每个字符组都视为一个模式n，看看在element2中是否存在相同的字符组。 但这显然不是正在发生的事情，它看起来是特定于方向的。

那么...方向是否特定？ 如果是的话...我还能用什么做我正在描述的事情？ 我打算使用的EG名字双关语，实际上我遇到的是很多姓，丈夫有他的名字，妻子有她的+丈夫。 我需要查看丈夫姓氏中是否存在丈夫姓氏。

我知道可以使用正则表达式来完成，但是我对它们不熟悉，也许应该熟悉，但事实并非如此，因此我更喜欢不使用正则表达式的答案。

eg_data <- data.frame(name1 = c('Jimmy Conway', 'Jimmy'), 
name2 = c('Conway','Jimmy Conway'))

eg_data$share_name1 <- mapply(charmatch, eg_data$name1, eg_data$name2)
eg_data$share_name2 <- mapply(charmatch, eg_data$name2, eg_data$name1)
eg_data$share_name <- 0
eg_data$share_name [(eg_data$share_name1==1 | eg_data$share_name2==1)] 
<- 1

Answer 1

相同的两行，仅字符串检测，而不是charmatch。

eg_data$share_name1 <- mapply(str_detect,eg_data$name1, eg_data$name2)
eg_data$share_name2 <- mapply(str_detect,eg_data$name2, eg_data$name1)

甚至

eg_data$share_name1 <- ifelse(mapply(str_detect,eg_data$name1, eg_data$name2)==TRUE,1,0)
eg_data$share_name2 <- ifelse(mapply(str_detect,eg_data$name2, eg_data$name1)==TRUE,1,0)

感谢任何看过的人。 我希望这对其他人有帮助。

Answer 2

这可能有用

> with(eg_data, intersect(name1, name2))
[1] "Jimmy Conway"