在 sqldf 中处理引号

【问题标题】：Handling quotation marks in sqldf在 sqldf 中处理引号
【发布时间】：2026-02-06 17:35:01
【问题描述】：

我想使用 sqldf 并能够完全按照在 sql 命令终端中编写的方式编写 SQL 语句。

例如，这是手册中的一个查询：

Gavg <- sqldf("select g, avg(v) as avg_v from DF group by g")

如果我使用单独的 SQL 文件，查询将被写入：

select g,
avg(v) as avg_v
from "DF"
group by g

但是，如果我要这样写：

Gavg <- sqldf("
    select g,
    avg(v) as avg_v
    from "DF"
    group by g
")

我希望能够将代码的 sn-ps 复制/粘贴到 sqldf(" ") 周围的区域中，而不必转义引号或不必引用包含该命令的外部 sql 文件。

这可能吗？

【问题讨论】：

您可以在双引号字符串中使用单引号，反之亦然。

标签： sql r sqldf

【解决方案1】：

对于您的用例，最简单的方法可能只是编写一些包装函数来为您转义所有这些字符。例如，这样的事情应该可以工作：

escape.quote <- function(){
  s <- paste(scan(what=character(),sep="\n"),collapse=" ")
  s <- gsub('"','\"',s)
  s <- gsub("'","\'",s)
  return(s)
}

然后，您可以将其插入到您的 sqldf() 调用中，然后将您的查询复制并粘贴到那里。像这样：

> library(sqldf)
> set.seed(2)
> DF <- data.frame(g=rep(1:2,5),v=rnorm(10))
> sqldf(escape.quote())
1: select g,
2: avg(v) as avg_v
3: from "DF"
4: group by g
5: 
Read 4 items
  g      avg_v
1 1  0.6606215
2 2 -0.2383182

【讨论】：