从不一致的重复字符中截断r中的字符串

这就是你所期望的,在这种情况下,有很多方法可以解决这个问题, gsub 是一种方式,你可以使用 str_extract 从 stringr 或者 gregexpr 从底部R:

gsub("(.*)\n(\\w+\\s+\\w+)$","\\2", x)

逻辑 以下内容:

使用\w选择最后一个字母数字字,因为有多个字母数字字因此使用了+(一个或多个匹配项)的贪婪字符,因为它存在于句尾,所以使用“$”使其工作,匹配模式是一个词与另一个词之间用空格隔开,因此存在e两个\w+和一个\s+表示空间。将这些匹配项包装在一个捕获组中(使用括号,它们用于捕获匹配项),并用这个捕获组替换整个匹配项,这样我们就得到了结果。

使用 stringr::str_extract

stringr::str_extract(x, "(\\w+\\s+\\w+)$")

输出 以下内容:

> gsub("(.*)\n(\\w+\\s+\\w+)$","\\2", x)
[1] "AB1 2CD"

输入数据:

x <- "22 Generic Road,\nNotville,\nFaketon,\nUnited Kingdom,\nAB1 2CD"