使用正则表达式拆分向量中的特定字符串

Question

我有一个字符串向量，其中一些包含标点符号/符号。例如：

words <- ("hi", "my.", "name!", "is98", ""joe"")

我的目标是创建一个包含所有这些单词的向量，但标点符号、数字和符号在向量中被制成它们自己的字符串。所以在这种情况下

("hi", "my", ".", "name", "!", "is", "98", """, "joe", """)

我最初的计划是使用grep 来识别存在所述标点符号的索引，然后遍历它们并使用strsplit 根据所述标点符号划分它们，如下所示：

puncIndex <- grep('[\\"!?.^]', words)
for(i in puncIndex){
  strsplit(words[i], '[\\"!?.^]')
}

但是我有几个问题。一个是我意识到strsplit 的结果本身就是一个列表，我不知道如何干净地将每个组件移回原始向量。另一个是即使我在一个词上尝试strsplit，它也只返回第一部分。例如：

strsplit(words[2], ".")
[[1]]
[1] "my"

编辑：添加数字作为要分开的类

Answer 1

你可以试试

  res <- unlist(strsplit(words, '(?<=\\w)(?=\\W)|(?<=\\W)(?=\\w)',
                   perl=TRUE))
  res
  #[1] "hi"   "my"   "."    "name" "!"    "is"   "\""   "joe"  "\""  

或使用str_extract_all

 library(stringr)
 unlist(str_extract_all(words, '\\w+|\\W+'))
 #[1] "hi"   "my"   "."    "name" "!"    "is"   "\""   "joe"  "\""  

编辑：添加了@Avinash Raj 的建议

数据

 words <- c("hi", "my.", "name!", "is", '"joe"')

Answer 2

只在中间存在的单词边界上分割。

words <- c("hi", "my.", "name!", "is", '"joe"')
unlist(strsplit(words, '(?<=.)\\b(?=.)', perl=TRUE))
#[1] "hi"   "my"   "."    "name" "!"    "is"   "\""   "joe" 
#[9] "\"" 

这里的技巧是\\b 称为单词边界，它匹配单词字符和非单词字符（反之亦然）。因此，如果开始和结束字符是单词字符，则仅此一项就可以匹配开始和结束。但是使用断言，它确保在单词边界之前和之后必须至少存在一个字符。

更新：

library(stringr)
unlist(str_extract_all(words, '[A-Za-z]+|[^A-Za-z]+'))