删除角色后的所有内容，但保留角色

Question

我们说我的字符串为"45216 Walnut Avenue Mary's Bake Shop"。 我希望在Avenue之后删除所有内容，但我希望保留大道。这是如何工作的？

我试过以下但没有运气：

a <- "45216 Walnut Avenue Mary's Bake Shop"
a <- gsub("Avenue.*$", "", a)

[1] "45216 Walnut "

Answer 1

执行此操作的最直接方法可能是使用"Avenue"抓取()，然后切断其后显示的所有内容：

a <- "45216 Walnut Avenue Mary's Bake Shop"
gsub("(Avenue).*", "\\1", a)

你会得到：

## [1] "45216 Walnut Avenue"