如何在R语言中移除字符串两个空格间的所有字符？

问题说明 #

需要将字符串（如"The Big Dog"）中两个空格之间的任意动态字符序列移除，最终得到"The Dog"，不能用固定字符串替换的方式。

原代码问题分析 #

你提供的base R代码存在两处问题：

1. 语法错误：" " ".*" " " 这种字符串拆分写法不符合R的语法规范，需合并为单个正则字符串
2. 正则逻辑错误：.*是贪婪匹配，会从第一个空格匹配到最后一个空格，导致整个内容被替换为空

Base R 实现方案 #

通用单次匹配（适用于仅一处中间内容的场景） #

test <- "The Big Dog"
# 匹配"空格+任意非空格字符+空格"，替换为单个空格
result <- sub("\\s\\S+\\s", " ", test)
# 输出结果："The Dog"

通用多次匹配（适用于多处中间内容的场景，如"The Quick Brown Fox"→"The Fox"） #

test <- "The Quick Brown Fox"
result <- gsub("\\s\\S+\\s", " ", test)
# 输出结果："The Fox"

更严谨的捕获组写法（避免首尾空格干扰） #

如果需要严格保留前后的有效内容，可使用捕获组精准匹配：

test <- "The Big Dog"
result <- sub("(\\w+)\\s+\\S+\\s+(\\w+)", "\\1 \\2", test)

stringr 包实现方案 #

先加载stringr包，再使用str_replace（单次）或str_replace_all（多次）：

library(stringr)

# 单次匹配
test <- "The Big Dog"
result <- str_replace(test, "\\s\\S+\\s", " ")

# 多次匹配
test_multi <- "The Quick Brown Fox"
result_multi <- str_replace_all(test_multi, "\\s\\S+\\s", " ")

内容的提问来源于stack exchange，提问作者Village.Idyot