R文本挖掘 - 文本字段之間的交集

Question

我想知道是否有一種快速方法來查找2個文本字符串之間的定向交集，例如

t1 <- "I have achieved my goals over the past 20 years and look forward for my next chalanges" 
t2 <- " have achieved goals and look my chalanges some other words bla bla" 

t1 isContainedIn t2將返回7，因爲在t1中顯示的7個單詞也在t2中顯示。 此外，t1和t2是數據框中的2列，所以我需要將該函數應用於整個數據框，並將結果列附加到我的原始數據框中。 這是「data.selected」我的數據框架的樣子：

 keywords           title 
1 Samsung UN48H6350 48" Samsung UN48H6350 48" Full 1080p Smart HDTV 120Hz with Wi-Fi +$50 Visa Gift Card 
2 Samsung UN48H6350 48"  Samsung UN48H6350 48" Full HD Smart LED TV -Bundle- (See Below for Contents) 
3 Samsung UN48H6350 48"  Samsung UN48H6350 48" Class Full HD Smart LED TV -BUNDLE- See below Details 
4 Samsung UN48H6350 48"  Samsung UN48H6350 48" Full HD Smart LED TV With BD-H5100 Blu-ray Disc Player 
5 Samsung UN48H6350 48"     Samsung UN48H6350 48" Smart 1080p Clear Motion Rate 240 LED HDTV 
6 Samsung UN48H6350 48"   Samsung UN48H6350 - 48-Inch Full HD 1080p Smart HDTV 120Hz with Wi-Fi 
7 Samsung UN48H6350 48"    Samsung 6350 Series UN48H6350 48" 1080p HD LED LCD Internet TV NEW 
8 Samsung UN48H6350 48" Samsung Un48h6350af 75" 1080p Led-lcd Tv - 16:9 - Hdtv 1080p - (un75h6350afxza) 
9 Samsung UN48H6350 48"       Samsung UN48H6350 - 48" HD 1080p Smart HDTV 120Hz Bundle 
10 Samsung UN48H6350 48" Samsung UN48H6350 - 48-Inch Full HD 1080p Smart HDTV 120Hz with Wi-Fi, (R#416) 

Answer 1

我想另一個類似的方式將通過只使用一個簡單的match

string <- strsplit(c(t1, t2), "\\s+") # similar to @Richard 
length(na.omit(match(string[[2]], string[[1]]))) 
## [1] 7 

或許lapply

length(unlist(lapply(string[[2]], intersect, string[[1]]))) 
## [1] 7 

Answer 2

我不是你的意思是由方向重要十分清楚。除非您更改數據，否則交點的長度不應改變。這可能是你正在尋找的。

length(Reduce(intersect, strsplit(c(t1, t2), "\\s+"))) 
# [1] 7 

如果切換到c(t1, t2)你c(t2, t1)可以看到在Reduce輸出的差異。但正如我所說，長度仍然是一樣的。這只是組的順序有所不同。