如何在R中使用write.csv/table仅为指定列添加引号？

算力阿峰

2026-5-25

哈哈，这个CSV导出的引号问题真的很头疼——既要保住带逗号的金额格式，又不想给所有列都套上引号，对吧？我之前处理销售数据的时候也踩过这个坑，给你两个靠谱的解决方案：

方案1：手动处理目标列后用write.table导出

这种方法适合不想额外加载包的场景：

先给Sales列手动包裹双引号（注意R里要转义引号，用\"）：
```
df$Sales <- paste0("\"", df$Sales, "\"")
```
接着用write.table导出，关键是设置quote = FALSE（避免给其他列自动加引号），同时指定分隔符和关闭行名：
```
write.table(df, "your_output.csv", sep = ",", row.names = FALSE, quote = FALSE)
```
导出后你会发现，只有Sales列的内容带引号，表头和其他列都保持原始无引号的状态，完全符合你的需求。

方案2：用readr包的write_csv（更优雅省心）

如果你平时用tidyverse工具链，这个方法更高效，不用手动拼接引号：

先安装并加载readr包（如果没装过的话）：
```
install.packages("readr")
library(readr)
```
导出时直接用quote参数指定需要加引号的列（可以用列名或者列的索引，比如Sales是第2列的话，写quote = 2也可以）：
```
write_csv(df, "your_output.csv", quote = "Sales")
```
这个函数会自动识别指定列里的特殊字符（比如逗号），给该列内容加上双引号，其他列和表头都不会被引号包裹，完美解决问题。