在R中从mysql中选择数据（带有for循环（？））

Question

我想要的是：

m1 <- dbGetQuery(mydb, "select out,in from table where value > 1")
m2 <- dbGetQuery(mydb, "select out,in from table where value > 1.1")
m3 <- dbGetQuery(mydb, "select out,in from table where value > 1.2")
m4 <- dbGetQuery(mydb, "select out,in from table where value > 1.3")
                                .
                                .
                                .
m101 <- dbGetQuery(mydb, "select out,in from table where value > 10")

然后

n1 <- degree(graph.data.frame(m)) 
n2 <- degree(graph.data.frame(m2)
            .
            .
            .

我想用apply函数简化这些代码，但我不知道：^（

Answer 1

这是一个for循环解决方案，可将结果保存在列表中：

# get list
myList <- list()

for(i in seq(1, 10, 0.1)) {
  myList[[paste0("m",i)]]<- dbGetQuery(mydb, 
                               paste("select out,in from table where value >", i))
}

然后，您可以从列表中调出对象：

n1 <- degree(graph.data.frame(myList[["m1"]]))

如上所述，您可以将这些结果放在一个列表中。命名列表是存储和组织许多对象的好方法。