如何在R DataFrame导入XLSX保留换行回车并批量检测导出相关内容

我来帮你搞定这两个问题，结合你已经写的代码给出完整的实现方案：

1. 导入XLSX时保留换行符与回车符 #

其实readxl包的read_excel()函数默认就能保留单元格内的换行（比如Excel里用Alt+Enter输入的换行）和回车符，关键是要设置对参数：

• 一定要把trim_ws设为FALSE：这个参数默认是TRUE，会去掉单元格内容首尾的空白，但不会影响内部的换行/回车；不过显式设为FALSE能确保完全保留原始内容，避免意外丢失字符。
• 导入后，你可以用cat()函数直接查看单元格内容，就能看到换行效果了，比如cat(df$某列[1])。

举个极简示例：

library(readxl)
# 导入时保留所有原始格式
df <- read_excel("test.xlsx", trim_ws = FALSE)
# 验证换行是否保留
cat(df$content[1])

2. 批量处理匹配文件并导出审核内容 #

你的代码已经有了不错的开头，我帮你完善成完整的工作流程，实现批量读取、扫描换行/回车、导出审核文件的需求：

完整可运行代码 #

library(dplyr)
library(readxl)
library(purrr) # 用更现代的purrr替代plyr，合并数据更方便

# 获取所有匹配规则的XLSX文件
filenames <- list.files(pattern = "Sara Lee.*\\.xlsx$", ignore.case = TRUE)

# 定义读取函数：跳过前5行，保留原始格式，同时记录来源文件
read_excel_with_source <- function(filename){
  read_excel(filename, col_names = TRUE, skip = 5, trim_ws = FALSE) %>%
    mutate(source_file = filename) # 新增列标记来源，方便审核溯源
}

# 批量读取所有文件并合并成一个DataFrame
all_data <- map_dfr(filenames, read_excel_with_source)

# 扫描所有行，标记并筛选出包含换行(\n)或回车(\r)的记录
audit_data <- all_data %>%
  # 标记该行是否存在换行/回车
  mutate(has_line_breaks = rowSums(across(everything(), ~grepl("[\n\r]", .x))) > 0) %>%
  # 只保留有问题的行（如果需要保留所有行，注释掉这行即可）
  filter(has_line_breaks)

# 导出审核文件为CSV（CSV能很好保留转义字符，方便人工查看）
write.csv(audit_data, "sara_lee_line_break_audit.csv", row.names = FALSE, na = "")

代码细节说明 #

• 用purrr::map_dfr替代plyr：map_dfr会自动把多个文件的DataFrame合并成一个，比plyr::llply更高效，语法也更简洁。
• 新增source_file列：审核的时候能直接知道这条记录来自哪个原始文件，不用来回查找，效率更高。
• 扫描所有列：across(everything(), ~grepl("[\n\r]", .x))会检查每一个单元格是否包含换行或回车，再用rowSums判断整行是否存在这类字符。
• 导出格式：选CSV是因为它能保留转义的换行符，不管用Excel还是文本编辑器打开都能看到这些字符；如果一定要导出为XLSX，可以用openxlsx::write.xlsx替代write.csv。

额外优化：标记具体有问题的列 #

如果想更精准地知道哪一列有换行/回车，可以加一段代码：

audit_data <- audit_data %>%
  mutate(affected_columns = pmap_chr(across(everything()), function(...) {
    current_row <- c(...)
    cols_with_breaks <- names(current_row)[grepl("[\n\r]", current_row)]
    paste(cols_with_breaks, collapse = ", ")
  }))

这样会新增一个affected_columns列，直接显示该行中哪些列包含换行/回车，审核起来更方便。

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