所以我一直在努力寻找解决这个问题的方法。我有 2 个字符串。例如：
喝酸奶有益健康
和
如果你不超过，喝Yog是好的
所以我想要的是补充不完整的单词并包括不在两个字符串中的单词。条款的顺序和案例都不重要。所以我的结果可能是：
饮用酸奶不超过对健康有益
我只是想补充字符串。任何的想法？谢谢你。
【问题讨论】：
able Yoghurt 。但是这个your 打破了常规，因为输出包括your 和you
标签： r regex string text compare
foo <- "Drinkable Yoghurt Is Good for your health"
bar <- "Drink Yog is good if you do not exceed"
foo_vec <- unlist(strsplit(foo, " "))
bar_vec <- unlist(strsplit(bar, " "))
查找foo 中不包含在bar 中的单词，反之亦然，忽略大小写。
foo_vec2 <- foo_vec[!apply(sapply(foo_vec, function(x) grepl(x, bar_vec, ignore.case = TRUE)), 2, any)]
bar_vec2 <- bar_vec[!apply(sapply(bar_vec, function(x) grepl(x, foo_vec, ignore.case = TRUE)), 2, any)]
同时查找单词，忽略大小写。
both <- intersect(tolower(foo_vec), tolower(bar_vec))
把所有东西放在一起。
paste(c(both, foo_vec2, bar_vec2), collapse=" ")
#> [1] "is good Drinkable Yoghurt for your health if do not exceed"
【讨论】：
sapply(.......) 代码。然后运行apply(sapply(.......))。然后在apply前面加上!。然后将其全部放入foo_vec[!apply(sapply(.......))]，您将能够看到发生了什么。