嘿，这个需求用stringr的正则替换功能就能轻松搞定，我给你拆解一下具体步骤和原理：

核心思路 #

我们需要用正则表达式匹配每一组两个以空格分隔的数字，然后把这组数字后面的空格替换成换行符\n。

具体实现步骤 #

1. 首先加载stringr包（如果还没安装的话先跑install.packages("stringr")）：

library(stringr)

2. 定义你的输入字符串（单个长字符串或字符串向量都支持）：

# 示例输入：包含多个空格分隔的数字（支持多位数）
input_str <- "10 20 300 400 50 60 7"

3. 使用str_replace_all()做全局替换：

# 核心替换代码
result <- str_replace_all(input_str, "(\\d+ \\d+) ", "\\1\n")

4. 查看格式化后的结果：

cat(result)

输出会是：

10 20
300 400
50 60
7

正则表达式解释 #

这里的正则(\\d+ \\d+) 是关键，我给你拆解每一部分：

• \\d+：匹配一个或多个数字（支持多位数，比如100、200这种）
• (\\d+ \\d+)：把「数字+空格+数字」作为一个捕获组，后面用\\1可以直接引用这个组的内容
• 末尾的 ：匹配两个数字之后的分隔空格，我们要把这个空格换成换行符

处理奇数个数字的情况 #

如果你的数字个数是奇数（比如上面示例的7个数字），最后单个数字会自动保留在最后一行，这个结果完全符合预期。

批量处理字符串向量 #

如果你的输入是多个字符串组成的向量，这个方法同样适用，因为str_replace_all是向量化操作：

input_vec <- c("1 2 3", "4 5 6 7")
result_vec <- str_replace_all(input_vec, "(\\d+ \\d+) ", "\\1\n")

# 逐个查看结果
for (item in result_vec) {
  cat(item, "\n---\n")
}

内容的提问来源于stack exchange，提问作者andandandand