如何仅在第二个空格之后分隔字符串中的值

Question

我有一串名字，例如：

st <- 'IKE IROEGBU NIMROD LEVI KYLE GIBSON CHAVAUGHN LEWIS BRYCE WASHINGSON'

我希望输出是像这样的向量：

c('IKE IROEGBU', 'NIMROD LEVI', 'KYLE GIBSON', 'CHAVAUGHN LEWIS', 'BRYCE WASHINGSON')

我该怎么做？

Answer 1

你可以：

st <- 'IKE IROEGBU NIMROD LEVI KYLE GIBSON CHAVAUGHN LEWIS BRYCE WASHINGSON'

c(stringr::str_match_all(st, "\\S+\\s\\S+")[[1]])
#> [1] "IKE IROEGBU"      "NIMROD LEVI"      "KYLE GIBSON"      "CHAVAUGHN LEWIS" 
#> [5] "BRYCE WASHINGSON"

Answer 2

另一种不友好的方式：

sst <- strsplit(st, " ")[[1]]
paste(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])

# [1] "IKE IROEGBU"      "NIMROD LEVI"      "KYLE GIBSON"      "CHAVAUGHN LEWIS"  "BRYCE WASHINGSON"

Answer 3

另一种方式是：

unlist(strsplit(st, " ")) -> names

i = 0
while (i < length(names) / 2) {
  
  print(
    paste0(names[1:2 + i * 2], collapse = " ")
  )
  
  i = i + 1
}

# [1] "IKE IROEGBU"
# [1] "NIMROD LEVI"
# [1] "KYLE GIBSON"
# [1] "CHAVAUGHN LEWIS"
# [1] "BRYCE WASHINGSON"