拆分字符串在R中保留空格-编程知识-白鹭情

我想使用 readr::read_fwf 从原始文本准备一个表格。有一个自变量 col_position 负责确定在我的情况下可能不同的列宽度。表始终包含 4 列，并且基于字符串中的 4 个第一个单词，例如： category variable description value sth

> text_for_column_width = "category    variable   description      value      sth"
> nchar("category    ")
[1] 12
> nchar("variable   ")
[1] 11
> nchar("description      ")
[1] 17
> nchar("value      ")
[1] 11

我想获得 4 个第一个单词，但要保留category 8[ab] 4[spaces] 个字符的空格，最后创建一个矢量，包括四个名称 c(12,11,17,11) 中每一个的字符数。我尝试将 strsplit 与空间拆分自变量一起使用，然后计算现有的零，但是我相信使用正确的正则表达式有更快的方法。

uj5u.com热心网友回复：

一个可能的解决方案，使用stringr：

library(tidyverse)

text_for_column_width = "category    variable   description      value      sth"

strings <- text_for_column_width %>% 
  str_remove("sth$") %>% 
  str_split("(?<=\\s)(?=\\S)") %>% 
  unlist

strings

#> [1] "category    "      "variable   "       "description      "
#> [4] "value      "

strings %>% str_count

#> [1] 12 11 17 11

uj5u.com热心网友回复：

您可以使用utils::strcapture：

text_for_column_width = "category    variable   description      value      sth"
pattern <- "^(\\S \\s )(\\S \\s )(\\S \\s )(\\S \\s*)"
result <- utils::strcapture(pattern, text_for_column_width, list(f1 = character(), f2 = character(), f3 = character(), f4 = character()))
nchar(as.character(as.vector(result[1,])))
## => [1] 12 11 17 11