如何将DataFrame列值转为双引号逗号分隔的SQL查询字符串？

我有一个包含名称列的DataFrame，需要把这些名称转换成"a","b","c","d"这种双引号加逗号分隔的格式，用来作为SQL查询的变量。

示例DataFrame代码 #

df <- data.frame(names=c("a","b","c","d"))

我的尝试与问题 #

我之前写的代码是：

df2 <- paste0('"',paste0(df$names,collapse='","','"'))
cat(df2)
# 输出结果："a","b","c","d">

结果末尾多了个多余的>符号，请问怎么正确生成目标字符串？我的SQL查询模板如下：

sql.query <- paste0("
    SELECT field1,field2
    FROM mytable
    WHERE field1 IN (",df2,");
    ")

正确实现方式 #

问题出在嵌套的paste0参数错误——第二个paste0多传了一个'"'参数，导致格式混乱。可以用两种方法解决：

方法1：分步处理（更直观） #

先给每个名称单独加上双引号，再用逗号拼接成完整字符串：

# 给每个名称前后添加双引号
quoted_names <- paste0('"', df$names, '"')
# 用逗号拼接所有带引号的名称
df2 <- paste(quoted_names, collapse = ",")

# 验证结果
cat(df2)
# 输出："a","b","c","d"

方法2：一行简化代码 #

直接通过嵌套paste完成，注意参数顺序：

df2 <- paste0('"', paste(df$names, collapse = '","'), '"')

# 验证结果
cat(df2)
# 输出："a","b","c","d"

验证SQL查询生成 #

把正确的df2代入你的SQL模板，就能生成合法的查询语句：

sql.query <- paste0("
    SELECT field1,field2
    FROM mytable
    WHERE field1 IN (", df2, ");
    ")

# 查看最终生成的SQL
cat(sql.query)

生成的SQL语句如下：

SELECT field1,field2
    FROM mytable
    WHERE field1 IN ("a","b","c","d");

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