2016-04-25 25 views
0

我要的是:选择数据从MySQL(与环()?)中的R

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) 
      . 
      . 
      . 

我想简化这些代码与应用功能,但我有没有线索:^(

+0

您要查询的“值”的顺序是它的完整顺序吗?如果是这样,那么你可以查询数据库的任何值和数据框后面的子集... – PavoDive

回答

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"]])) 

和上面一样,你可以把这些结果在列表中。命名列表是存储和组织许多对象的好方法。