r - 根据模式从字符串创建子串，并将模式保留在子串中

Question

是否可以根据匹配单词的模式从字符串创建子字符串但也保留匹配部分？

a <- "contrainte que ilz ne contraint Que ris et jeux mais ne contrainte que jamais on ne contrainte que vous ne contraindre que de ne contraint que l' amour ne contraint que je ne contrainte que je ne contraint que je ne contrainte que l' homme arrive à ne contraint que nous ne contrainte que je ne contraintes que le créateur ne contrainte que l' opium même ne"

当出现“cont”模式时，我很乐意拆分字符串。

strsplit(a, "cont", perl = T)

 [1] ""                                 "rainte que ilz ne "               "raint Que ris et jeux mais ne "   "rainte que jamais on ne "        
 [5] "rainte que vous ne "              "raindre que de ne "               "raint que l' amour ne "           "raint que je ne "                
 [9] "rainte que je ne "                "raint que je ne "                 "rainte que l' homme arrive à ne " "raint que nous ne "              
[13] "rainte que je ne "                "raintes que le créateur ne "      "rainte que l' opium même ne" 

我想做的是完全相同的，但将匹配部分保留在子字符串中。

谢谢!

Answer 1

您可以使用 stringr::str_split与 lookaheads ，例如:

stringr::str_split(a, "(?=cont)")[[1]]

Lookarounds 是零宽度断言，这意味着它们不吃任何字母表，所以在这里:积极的前瞻可以匹配 anything(?=anyword) 匹配 anything 后跟 anyword ,

输出:

stringr::str_split(a, "(?=cont)")[[1]]
 [1] ""                                    
 [2] "contrainte que ilz ne "              
 [3] "contraint Que ris et jeux mais ne "  
 [4] "contrainte que jamais on ne "        
 [5] "contrainte que vous ne "             
 [6] "contraindre que de ne "              
 [7] "contraint que l' amour ne "          
 [8] "contraint que je ne "                
 [9] "contrainte que je ne "               
[10] "contraint que je ne "                
[11] "contrainte que l' homme arrive à ne "
[12] "contraint que nous ne "              
[13] "contrainte que je ne "               
[14] "contraintes que le créateur ne "     
[15] "contrainte que l' opium même ne"