如何在R语言中还原str_wrap()处理后的换行文本？

一、解释你提到的正则符号 #

你之前看到的{0,2}$和.{3}是正则表达式语法：

• .{3}：匹配任意3个字符（除换行符外）
• {0,2}$：匹配字符串末尾0-2个任意字符

这些是用来实现「严格按指定字符数切割」的规则，和文本还原关联不大，下面直接解决你的核心问题。

二、适配极端场景的文本包装方案 #

str_wrap()是按单词换行，遇到含原生换行符、多空格的文本时表现不稳定，推荐用自定义函数实现精准包装，同时预处理特殊格式：

library(stringr)

# 自定义包装函数：预处理多空格/换行，支持按宽度切割（优先保留完整单词）
wrap_exact <- function(text, width) {
  # 预处理：把多空格、换行统一替换为单个空格，去除首尾空格
  cleaned_text <- str_replace_all(text, "\\s+", " ") %>% str_trim()
  # 按指定宽度切割，优先在空格处换行（超长单词强制切割）
  str_split(cleaned_text, paste0("(?<=.{1,", width, "})(?=\\s|$)")) %>% 
    unlist() %>% 
    str_c(collapse = "\n")
}

# 测试极端场景示例
example <- c("The extreme long long\nlonglong long.  long long strings", "The theory                is about.   ")
wrapped_result <- wrap_exact(example, 3)
cat(wrapped_result)

三、还原str_wrap()处理后的文本 #

str_wrap()本质是插入\n实现换行，直接替换换行符即可，同时清理多余空格：

# 通用还原函数：去除换行、合并多空格
unwrap_text <- function(wrapped_text) {
  str_replace_all(wrapped_text, "\n", " ") %>% 
    str_replace_all("\\s+", " ") %>% 
    str_trim()
}

# 测试还原
original_text <- unwrap_text(wrapped_result)
cat(original_text)

四、特殊场景处理（保留原生换行） #

如果原文本有需要保留的\n，包装前先标记占位符，还原时再恢复：

# 带原生换行的包装函数
wrap_with_breaks <- function(text, width) {
  # 用特殊占位符标记原生换行
  marked_text <- str_replace_all(text, "\n", "___ORIG_NEWLINE___")
  # 包装后恢复占位符为换行
  wrapped <- wrap_exact(marked_text, width)
  str_replace_all(wrapped, "___ORIG_NEWLINE___", "\n")
}

# 对应还原函数
unwrap_with_breaks <- function(wrapped_text) {
  str_replace_all(wrapped_text, "\n", " ") %>% 
    str_replace_all("\\s+", " ") %>% 
    str_replace_all("___ORIG_NEWLINE___", "\n") %>% 
    str_trim()
}

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