正则表达式贪婪匹配

假设有字符串： word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'
word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"

如何抓出 新车 比 旧 好看 的字符串

pattern<-'新车.*?比.*?旧.*?好看'
a<-gregexpr(pattern, word, perl = TRUE)
substr(word,a[[1]][1],attr(a[[1]],'match.length'))



现在我的pattern写的，会多抓内容或者被截断

library(stringr)
str_extract_all(word,"新车|比|旧|好看")

gongjiangchao 发表于 2017-6-9 18:40
library(stringr)
str_extract_all(word,"新车|比|旧|好看")

您理解错了，我是要提出整句话，比如word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'， 希望提出：新车ttt比ttt旧款tttt好看ttttt好看； word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"，希望提出：新车比旧款好看

中国火箭 发表于 2017-6-12 10:12
您理解错了，我是要提出整句话，比如word

library(stringr)
library(purrr)
pattern<-"(新车).*?(比).*?(旧).*?(好看)"
da<-str_match(word,pattern)
reduce(da[,-1],str_c)

gongjiangchao 发表于 2017-6-12 12:44
library(stringr)
library(purrr)
pattern

您还是没有理解我的意思， tttt那些字母是我用来代替 不确定文本的，

比如有的用户会评论： 新车比旧款改进了造型，看起来比旧款好看
有的会说： 新车挺不错，比旧款好看多了

我希望能抓到整句话，比如word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'， 希望提出：新车ttt比ttt旧款tttt好看ttttt好看； word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"，希望提出：新车比旧款好看


不过还是很谢谢你的回答，第一次见到purrr包