将ASCII读入表并从R中的表中选择特定行

Question

This is related to the question that I posted earlier.我相信在R中一定有更好的方法可以做到这一点，而无需在R中使用sql。因为sql无法识别R中的变量，所以目前它给了我一些错误。这可能是由于语法错误。 SQL 错误很明显，因为这些列不在 df0 中。不过，需要有一种方法将文件名注入到选定的行中。为什么 R 读取的文件不超过 2 个？

任何人都可以指出根本原因并提出一些想法以获得更好的解决方案吗？

> df <- NULL
> fn <- NULL
> n <- 1
> for (f in files) {
+     fn <- file_path_sans_ext(f)
+     df0 <-read.table(f, sep=",")
+     n <- n + 1
+     df <- sqldf('select n, fn, V1, V2 from df0 
where V1 IN (101, 201, 301, 401)') 
-- thought R could read fn just as df0
+     df <- rbind(df) --further fn and n only reads two files out of 1000s
+ }
Error in rsqlite_send_query(conn@ptr, statement) : 
no such column: n, df1

Answer 1

sqldf 创建一个临时数据库并将数据帧（不是标量或其他对象）从您的工作区上传到它。如果要合并标量，则可以使用 gsubfn 包（sqldf 包自动加载）中的fn 将它们注入到 SQL 语句中。比如使用内置的BODdata.frame：

library(sqldf)

n <- nrow(BOD)
s <- "abc"

fn$sqldf("select $n as n, '$s' as string, demand from BOD")

给予：

  n string demand
1 6    abc    8.3
2 6    abc   10.3
3 6    abc   19.0
4 6    abc   16.0
5 6    abc   15.6
6 6    abc   19.8

建议您阅读?sqldf 和?fn 并查看sqldf github home page 上的示例，因为所有这些都有很好的记录。