如何在R中自动替换CSV转义双引号为'并保留列引号格式？

核心问题 #

你的CSV文件中存在转义双引号\"，导致read_csv解析混乱；手动替换后用常规方式保存会丢失列的引号标识，Excel无法识别列分隔。

解决方案一：先处理文本再解析（推荐） #

直接读取整个文件为文本字符串，完成转义双引号的替换后，再解析为数据框，最后保存时强制添加列引号：

# 加载所需包
library(readr)

# 1. 读取原始CSV文件的全部文本内容
raw_content <- readLines("your_input_file.csv")

# 2. 将所有转义双引号\"替换为单引号'
cleaned_content <- gsub('\\"', "'", raw_content)

# 3. 把处理后的文本转为临时连接，用read_csv按指定分隔符解析
df <- read_csv(cleaned_content, delim = ";")

# 4. 保存时强制为所有列添加引号，确保Excel能正确识别列
write_csv(df, "your_output_file.csv", quote = "all")

解决方案二：调整保存时的引号规则 #

如果已经读取并修复了数据框内容，保存时指定quote参数即可保留列引号：

# 假设df是已完成内容替换的数据框
write_csv(df, "fixed_file.csv", quote = "all")

quote = "all"会强制给每一列的内容加上双引号，分隔符;会被Excel正确识别，不会出现列混乱的问题。

补充说明 #

• readLines按行读取文件为字符串向量，能完整保留原始的引号结构；
• 替换时用gsub('\\"', "'", ...)即可精准匹配转义双引号，无需多层转义（readLines读取后，\"在R字符串中直接以\"形式存在）；
• 若CSV文件编码特殊，可在readLines中指定encoding参数（如encoding = "UTF-8"）。

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