如何提取R中字符串的一部分

Question

我有一个字符串：“我已经寻找我的第一部ANDROID智能手机超过6个月了。用10K的预算都准备买MMX 110，然后又想等待MMX 116。但MMX 116在16K，我也不得不从15K增加我的预算，并开始寻找三星，IPHONE，HTC等其他智能手机的选择。”

我只想提取那些包含单词“智能手机”的部分。部分必须位于两个句号或两个逗号内。逗号和句号的组合也可以。

我试过R代码

y=grep("，.？[：alnum：]+(智能手机)[：alnum：]+，."，x，perl=TRUE，value=TRUE)

但是它没有给我想要的结果。

Answer 1

有关拆分字符串，请参阅here。然后使用here进行部分字符串匹配。

要注意的一件事是拆分“句号”，它会在缩写之后拆分，比如先生。

Answer 2

这是你想要的吗？

> a <- "HAD BEEN SEARCHING FOR MY 1ST ANDROID SMARTPHONE FOR OVER 6 MONTHS. WITH BUDGET OF 10K WAS ALL SET TO BUY MMX 110 BUT THEN THOUGHT TO WAIT FOR MMX 116. BUT WITH MMX 116 AT 16K, I TOO HAD TO INCREASE MY BUDGET FROM 15K AND STARTED TO LOOK OUT FOR OTHER SMARTPHONE OPTIONS FROM SAMSUNG, IPHONE, HTC ETC."
> b <- unlist(strsplit(a, "[,.]"))
> (c <- b[grep("SMARTPHONE", b)])
[1] "HAD BEEN SEARCHING FOR MY 1ST ANDROID SMARTPHONE FOR OVER 6 MONTHS"                                         
[2] " I TOO HAD TO INCREASE MY BUDGET FROM 15K AND STARTED TO LOOK OUT FOR OTHER SMARTPHONE OPTIONS FROM SAMSUNG"