如何在文本中找到模式并在r中进行减法

Question

text<-c(‘爱普生韩国公司，一家以彩色打印机和投影机而闻名的公司，周三上午在首尔清坝洞的一家当地电影院展示了一款由安卓操作系统驱动的智能眼镜。智能眼镜的显示器可以放在头上，佩戴者可以一边躺着一边看电影。) 模式<-c(电影CGV Cheongdam汉城)

我只想用这样的模式从文本中减去句子。

首尔昌东电影院CGV

所以我试着用“grep”和“substr”，但这并不容易。

模式2<-c(‘电影片段**CGV\x\x\x Cheongdam\*\x{e76f}汉城’) T<-strsplit(文本，‘') m<-grep(pattern2，文本) (t，m，attr(m，"match.length"))

怎么做？

Answer 1

regmatches(text, regexpr('movie.*Seoul', text))

Answer 2

您还可以使用sub函数：

sub(".*\\b(movie\\b.*\\bSeoul)\\b.*", "\\1", text)
# [1] "movie theater CGV in Cheongdam-dong, Seoul"