使用 read.csv.sql 从单个列中选择多个值

Question

我正在使用 sqldf 包中的 read.csv.sql 尝试读取行的子集，其中子集从多个值中选择 - 这些值存储在另一个向量中。

我已经破解了一种有效的表单方法，但我想看看传递sql 语句的正确方法。

下面的代码给出了最小的例子。

library(sqldf)

# some data
write.csv(mtcars, "mtcars.csv", quote = FALSE, row.names = FALSE)

# values to select from variable 'carb'
cc <- c(1, 2)

# This only selects last value from 'cc' vector
read.csv.sql("mtcars.csv", sql = paste("select * from file where carb = ", cc ))

# So try using the 'in' operator - this works
read.csv.sql("mtcars.csv", sql = "select * from file where carb in (1,2)" ) 

# but this doesn't
read.csv.sql("mtcars.csv", sql = paste("select * from file where carb in ", cc ))

# Finally this works
read.csv.sql("mtcars.csv", sql = paste("select * from file where carb in ", 
                                       paste("(", paste(cc, collapse=",") ,")")))

上面的最后一行有效，但是有没有更简洁的方法来传递这个语句，谢谢。

Answer 1

1) fn$ 替换可以用 gsubfn 的fn$ 完成（由 sqldf 自动拉入）。请参阅 sqldf home page 上的 fn$ 示例。在这种情况下，我们有：

fn$read.csv.sql("mtcars.csv", 
  sql = "select * from file where carb in ( `toString(cc)` )")

2) join 另一种方法是创建一个包含所需 carb 值的 data.frame 并与之执行连接：

Carbs <- data.frame(carb = cc)
read.csv.sql("mtcars.csv", sql = "select * from Carbs join file using (carb)")

Answer 2

您可以使用deparse，但我不确定它是否比您已有的干净得多：

read.csv.sql("mtcars.csv",
             sql = paste("select * from file where carb in ", gsub("c","",deparse(cc)) ))

请注意，这并不是一个真正的通用解决方案，因为deparse 不会总是为您提供正确的字符串。它恰好在这种情况下起作用。