在 R 脚本中为 R 变量使用 where 子句以在 SQL 语句中使用它

Question

我有两张桌子；即 table1 = PID（主键）+ 20 个其他列和来自 database1 的 200 条记录 AND table2 = [序列号]（主键）+ 10 个其他列和来自 database2 的 300 条记录。

我正在尝试从 PID = [序列号] 的 table2 中提取值。

注意：PID = [SCK34ICV7, NSCK876DL, ......]。

我参考了“在 R 脚本中传递字符串变量以在 SQL 语句中使用它”

t1 <- sqlquery(db1, "select * from table1")
r1 <- t1$PID
class(r1) = 'factor'
t2 <- sqlquery(db2, "select * from table2 where [Serial no] = '(",r1,")' ",sep ="")

我还尝试了其他函数，即 gsubfn 和 sprintf() 中的 paste0()、fn$ 并得到错误，例如 -'c 不是可识别的内置函数名'； '语法错误'。

请提出最好的方法。

注册，

姆鲁通贾亚

Answer 1

您的查询已关闭。请参阅 here 了解正确的格式。

r1 <- c("PID1","PID2","PID3")

---

错误

paste("select * from table2 where [Serial no] = '(",r1,")' ",sep ="")

输出：

[1] "select * from table2 where [Serial no] = '(PID1)' " "select * from table2 where [Serial no] = '(PID2)' " "select * from table2 where [Serial no] = '(PID3)' "

---

正确

paste("select * from table2 where [Serial no] IN (",paste(r1,collapse=", "),") ",sep ="")

输出：

[1] "select * from table2 where [Serial no] IN (PID1, PID2, PID3) "

所以查询变成：

t2 <- sqlquery(db2,paste0("select * from table2 where [Serial no] IN (",paste(r1,collapse=", "),") ",sep =""))

希望这会有所帮助。