如何导出无行名、非数值列含引号的DataFrame为CSV文件？

看起来你已经离目标很近了！问题出在列名的引号控制上——write.csv默认不会给列名添加引号，哪怕你指定了quote=c(1,2)，这个参数只作用于数据行的内容。要实现你想要的格式，我们需要同时处理列名和数据行的引号规则。

方法一：手动指定带引号的列名 + 精准控制内容引号 #

这是最直接的方式，既保留write.csv的便捷性，又能精准控制格式：

首先，假设你的数据框是这样创建的：

dataf <- data.frame(
  Col_A = c("Hello", "Once", "Hi"),
  Col_B = c("World", "More", "Data"),
  Col_C = c(4, 21, 23),
  stringsAsFactors = FALSE  # 确保字符列不会被转成因子类型
)

然后用write.table（write.csv是它的封装，灵活性更高）来导出：

write.table(dataf, "test.csv",
            row.names = FALSE,  # 去掉行名
            sep = ",",  # 使用逗号作为分隔符
            col.names = paste0('"', names(dataf), '"'),  # 给所有列名手动加上双引号
            quote = c(1, 2),  # 指定给第1、2列（字符列）的内容加引号
            qmethod = "double"  # 自动转义字符串内的双引号（如果存在的话）
)

导出的结果会完全符合你的需求：

"Col_A","Col_B","Col_C"
"Hello","World",4
"Once","More",21
"Hi","Data",23

方法二：先给字符列内容加引号，再无引号导出 #

如果你觉得手动处理列名太繁琐，也可以提前给所有需要加引号的内容（字符列内容+列名）包裹双引号，然后关闭自动引号导出：

# 给字符列的每一项内容加上双引号
dataf[, c("Col_A", "Col_B")] <- lapply(dataf[, c("Col_A", "Col_B")], function(x) paste0('"', x, '"'))

# 导出时关闭自动引号功能，同时指定带引号的列名
write.csv(dataf, "test.csv",
          row.names = FALSE,
          quote = FALSE,
          col.names = paste0('"', names(dataf), '"')
)

这种方法效果和第一种一致，适合需要批量处理多个字符列的场景。

为什么你的原代码没生效？ #

原代码里的quote=c(1,2)确实给第1、2列的内容加了引号，但write.csv默认不会给列名添加引号——它只会根据col.names=TRUE输出原始列名，不会自动包裹引号。所以我们需要手动给列名加上引号，才能实现全列名带引号的效果。

内容的提问来源于stack exchange，提问作者João Fernandes