如何在R语言中使用递归将字符串分割为指定长度的块？

DevOps 小满

2026-8-8

问题分析与解决

你的递归函数只返回两个子块加空串，核心问题是剩余字符串的截取范围错误：原代码里remaining只截取了从n+1到2n的部分，相当于每次递归只传递了下一段固定长度的字符串，而非整个剩余未处理的内容。当第二次递归时，剩余字符串长度刚好等于n，处理后剩下的是空串，递归到空串时直接返回，所以最终只得到两个有效块加一个空串。

修正后的递归实现

# 样本数据
x <- paste0(rep(letters, 10000), collapse = "")

split_group <- function(x, n = 10) {
  # 基准情况：空串直接返回NULL，避免最终结果出现空元素
  if (nchar(x) <= 0) {
    return(NULL)
  }
  # 剩余字符串长度不足n时，返回当前剩余部分（不需要可改为return(NULL)）
  if (nchar(x) < n) {
    return(x)
  } else {
    beginning <- substring(x, 1, n)
    # 关键修正：剩余字符串从n+1开始到末尾，而非固定截取n个字符
    remaining <- substring(x, n + 1)
    c(beginning, split_group(remaining, n))
  }
}

# 测试调用
result <- split_group(x = x, n = 10)
# 查看前几个结果验证
head(result)
# 验证总长度：总字符数26*10000=260000，每个块10个字符，应返回26000个结果
length(result)

关键修正点说明

剩余字符串截取逻辑：将remaining的截取范围从固定的(n+1)到2n，改为直接从n+1到字符串末尾，确保每次递归都能传递所有未处理的内容，实现完整遍历分割。
空串过滤：新增nchar(x) <= 0的判断，避免递归到空串时返回无效的空元素，让最终结果更整洁。如果需要保留末尾不足n长度的片段，可保留原基准情况；不需要则将该分支的返回值改为NULL。