R使用向量中的值来成为数据帧的名称

时间:2016-05-06 12:42:09

标签: r lapply rmysql

我从数据库中获取表的名称,我想从每个表中选择所有数据并自动创建数据帧。代码

nm = dbListTables(connection)

创建一个矢量,如:

[1] "Account"                          "Credit__Amortization_Payment__c" 
[3] "Credit__Amortization_Schedule__c" "Credit__Loan_Payment__c"         
[5] "Credit__Loan__c"

举个例子,

 nm = c("Account", "Credit__Amortization_Payment__c", "Credit__Amortization_Schedule__c", "Credit__Loan_Payment__c", "Credit__Loan__c")

我为循环中的每个值创建一个查询列表:

qry <- list()
for (i in 1:length(nm)) {
  qry[i] <- paste0("select * from ", nm[i])
  }

然后我无法弄清楚如何将数据框的名称保存为向量中的值,所以我必须手动输入它,但我想循环通过它保存一个数据框与列表中的名称和结构完全相同。

q = paste0(qry[1])
rs <- dbSendQuery(con, q)
Account <- dbFetch(rs, n=-1)

我在这里为手动矢量中的每个值重复一次,但我想根据nm = dbListTables(连接)中的值自动执行此操作

q = paste0(qry[3])
rs <- dbSendQuery(con, q)
Credit__Amortization_Schedule__c <- dbFetch(rs, n=-1)

1 个答案:

答案 0 :(得分:0)

我认为assign正是您所寻找的,例如

> assign("x", 5)
> x
[1] 5

在你的情况下,例如查询1

q <- paste0(qry[1])
rs <- dbSendQuery(con, q)
assign(nm[1], dbFetch(rs, n=-1))

应该有效。另请查看R FAQ