拆分字符串，包括R中的标点符号

也许这有帮助

[[1]]
[1] "I"       "am"      "a"       "good"    "boy"     "who"     "went"  "to"    "Africa"   ","   "Brazil" 
[11] "and"     "India"

---

编辑我的问题以反映这一点

[[1]]
[1] "I"       "am"      "a"       "good"    "boy"     "who"     "went"  "to"    "Africa"   ","   "Brazil" 
[11] "and"     "India"

strsplit(file_name, '\\s+|(?<=[a-z])(?=[[:punct:]])', perl = TRUE)

#[[1]]
#[1] "I"      "am"     "a"      "good"   "boy"    "who"    "went"   
#[8] "to"     "Africa" ","      "Brazil" "and"    "India" 

regmatches(file_name, gregexpr("[[:alnum:]]+|,", file_name))