有没有一种通用的方法来删除以R中的非间隔大写字母开头的子字符串？

虽然这很难用文字描述。我正试图找到一个通用的方法来实现这一点：

[1]“自然之角食品杂货店店主BBB评级：A+”
[2] “Peapod皮卡杂货店货物配送服务”
[3] “停止购物杂货店”
[4] “韦格曼斯杂货店”

为此：

[1]“自然之角公司”
[2] “Peapod拾音器”
[3] “停车和购物”
[4] “韦格曼”

是否有一种使用

gsub

的正则表达式编写的方法？

Do（其中

s

是字符串数组）：

这样做的目的是：查找小写字母或。后跟大写字母。保留第一个字符，然后删除后面的所有内容

结果:

[1] "Nature's Corner, Inc." "Peapod Pick-Up"        "Stop & Shop"           "Wegmans"

（带有较窄的控制台）

备选方案：

如果您要移除的部分总是以“杂货店”开头，请执行以下操作：

gsub(pattern = "Grocery.*", replacement = "", x = s)

---

但这可能会将“夫妻食品杂货店”转换为“夫妻食品杂货店”

您是否总是试图删除“杂货店…”？Wil我正在寻找一个通用解决方案。不仅仅是杂货店。

[1] "Nature's Corner, Inc."
[2] "Peapod Pick-Up"       
[3] "Stop & Shop"          
[4] "Wegmans"  

gsub(pattern = "Grocery.*", replacement = "", x = s)