R语言中write.csv/write.table生成指定格式CSV的问题

要实现仅对包含逗号或双引号的字段添加双引号，并转义原有双引号的CSV输出，write.csv/write.table的默认参数无法满足需求（因为quote参数只能全局控制，不能按字段内容判断），可以通过自定义字段格式化逻辑来实现：

步骤1：定义字段格式化函数 #

这个函数会检查字符串是否包含CSV特殊字符（逗号、双引号），如果包含则用双引号包裹，并将内部的双引号替换为两个（符合CSV转义规则）；否则直接返回原字符串。

format_csv_field <- function(x) {
  # 检查字段是否包含逗号或双引号
  if (grepl('[,"]', x)) {
    # 转义双引号并包裹外层双引号
    paste0('"', gsub('"', '""', x), '"')
  } else {
    x
  }
}

步骤2：格式化数据框所有字段 #

使用data.table或dplyr对数据框的每个元素应用上述函数：

# 示例数据
library(data.table)
foo <- 
  data.table(
    var1 = c('Test', 'Test"3', "This \" is a , special value\""), 
    var2 = c("This \" is a , special value\"", 'Bla"', 'Test')
  )

# 格式化所有字段
foo_formatted <- foo[, lapply(.SD, format_csv_field)]

如果使用dplyr：

library(dplyr)
foo_formatted <- foo %>% mutate_all(format_csv_field)

步骤3：写入CSV文件 #

用write.table写入时，关闭自动引号（因为已经手动处理了引号逻辑），指定分隔符为逗号：

write.table(
  x = foo_formatted,
  file = 'test.csv',
  sep = ',',
  quote = FALSE,
  row.names = FALSE,
  col.names = TRUE,
  eol = '\n'
)

输出结果验证 #

生成的test.csv内容如下，完全符合要求：

var1,var2
Test,"This "" is a , special value"""
"Test""3","Bla"""
"This "" is a , special value""",Test

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