使用readr读写含引号及数组字符串字段的TSV时遇额外引号问题

这个坑我之前踩过好几次！核心问题在于readr的默认行为会对包含特殊字符（比如数组里的逗号）的字段自动添加引号，而write_tsv确实没有直接的quote参数，但我们可以用它的底层函数来解决，同时调整读取逻辑避免提前引入问题。

下面是几个靠谱的解决办法：

1. 写入时用write_delim替代write_tsv，强制关闭引号 #

write_tsv其实是write_delim的封装（指定了delim = "\t"），而write_delim支持quote参数。直接用它来写入，设置quote = "none"就能彻底消除额外引号：

library(readr)
# 假设你已经读取好数据框df
write_delim(df, "out.tsv", delim = "\t", quote = "none")

2. 读取时明确指定字段类型，避免自动引号处理 #

如果读取的时候就把数组字段标记为纯字符类型，能减少readr自动添加引号的概率。用col_types参数指定该字段为col_character()：

df <- read_tsv("your_input.tsv", col_types = cols(
  array_column = col_character(), # 替换成你的数组字段名
  .default = col_guess() # 其他字段自动识别类型
))

这样读取后的数据框里，数组字段就是原始的字符串格式，不会被额外处理，再结合上面的写入方法就万无一失了。

补充说明 #

出现额外引号的本质原因是：你的数组字符串里包含了逗号这类非制表符的特殊字符，readr默认会认为这类字段需要用引号包裹来避免解析错误。通过关闭写入时的引号功能，同时明确读取时的字段类型，就能完全规避这个问题。

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