2016-04-25 18 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"]])) 

和上面一樣,你可以把這些結果在列表中。命名列表是存儲和組織許多對象的好方法。