使用R在第一次出现整数时拆分字符串

你可以使用tidyr::extract:

library(tidyr)
df <- df %>% 
    extract("name_and_address", c("name", "address"), "(\\D*)(\\d.*)")
## => df
##           name              address
## 1    Mr. Smith       12 Some street
## 2    Mr. Jones   345 Another street
## 3 Mr. Anderson 6 A different street

(\D*)(\d.*)正则表达式与以下内容匹配:

• (\D*)-第1组:任何零个或更多非数字字符
• (\d.*)-第2组:一个数字，然后是尽可能多的零个或更多字符.

另一个stringr::str_split的解决方案也是可能的:

str_split(df$name_and_address, "(?=\\d)", n=2)
## => [[1]]
## [1] "Mr. Smith"      "12 Some street"

## [[2]]
## [1] "Mr. Jones"          "345 Another street"

## [[3]]
## [1] "Mr. Anderson"         "6 A different street"

(?=\d)正向前瞻在一个数字之前找到一个位置，n=2告诉stringr::str_split最多只能分成两个块.

如果字符串中没有数字，则不返回任何内容的Base R方法:

df = data.frame(name_and_address = c("Mr. Smith12 Some street", "Mr. Jones345 Another street", "Mr. Anderson6 A different street", "1 digit is at the start", "No digits, sorry."))

df$name <- sub("^(?:(\\D*)\\d.*|.+)", "\\1", df$name_and_address)
df$address <- sub("^\\D*(\\d.*)?", "\\1", df$name_and_address)
df$name
# => [1] "Mr. Smith"    "Mr. Jones"    "Mr. Anderson" ""             ""
df$address
# => [1] "12 Some street"          "345 Another street"     
#    [3] "6 A different street"    "1 digit is at the start"         ""                       

见an online R demo.这也支持第一个数字是字符串中第一个字符的情况.