遍歷API並將結果放入單個data.frame

Question

我有一個唯一的對象ID的列表，我想通過API進行循環。 目的是獲得包含所有對象和獲得的結果的單個data.frame。

這樣我獲得了唯一對象列表

    url  <- "http://mapakriminality.cz/api/"
    path <- "api/areas/?level=3"

    raw.result_codes <- GET(url = url, path = path)

    this.raw.content_codes <- rawToChar(raw.result_codes$content)

    this.content_codes <- fromJSON(this.raw.content_codes)

    this.content_codes_df <- as.data.frame(this.content_codes)

    this.content_codes_df <- this.content_codes_df[- c(523,
    524,
    525),]

    this.content_codes_list <- list(this.content_codes_df[,1])

這就是我能夠獲得單個對象ID的結果的方式。 Areacode =代碼列表中的對象。

url2  <- "http://mapakriminality.cz/api/"
path2 <- "api/crimes?areacode=190918&crimetypes=101-903&timefrom=1-2014$&timeto=12-2014&groupby=area"

raw.result_crimes <- GET(url = url2, path = path2)

this.raw.content_crimes <- rawToChar(raw.result_crimes$content)

this.content_crimes <- fromJSON(this.raw.content_crimes)

this.content_crimes_df <- as.data.frame(this.content_crimes)

結果如下所示：

  crimes.CrimeRate crimes.Found crimes.Solved
1         235.1567          604           449

我正在尋找的是這樣的結果：

  crimes.CrimeRate crimes.Found crimes.Solved    object_ID
1         235.1567          604           449    19091
2         X2                Y2            Z2     W2
3         X3                Y3            Z3     W3

Answer 1

如果我正確理解了您想做什么，這是一個簡單的循環（基於您的代碼），以遍歷不同的區號，下載數據並更新數據框（這不是最有效的方法，但解決方案簡單易懂）：

this.content_codes_list <- this.content_codes_df[,1]
url2  <- "http://mapakriminality.cz/api/"

this.content_crimes_df <- data.frame(crimes.Crime=rep(0,length(this.content_codes_list)),
                                     Rate.crimes.Found=rep(0,length(this.content_codes_list)),
                                     crimes.Solved=rep(0,length(this.content_codes_list)),
                                     object_ID=this.content_codes_list)

for (i in 1:length(this.content_codes_list)){
  print(i) #optional 
  path2 <- paste0("api/crimes?areacode=", 
                  this.content_codes_list[i],
                  "&crimetypes=101-903&timefrom=1-2014$&timeto=12-2014&groupby=area")
  raw.result_crimes <- GET(url = url2, path = path2)
  this.raw.content_crimes <- rawToChar(raw.result_crimes$content)
  this.content_crimes <- fromJSON(this.raw.content_crimes)
  this.content_crimes_df[i,1:3] <- as.data.frame(this.content_crimes)
}

---

編輯

有時下載數據幀有多於一行或零行，並且上面的代碼返回錯誤。 因此，我更新了循環以使其適用於所有情況：

for (i in 1:length(this.content_codes_list)){
  print(i) #optional 
  path2 <- paste0("api/crimes?areacode=", 
                  this.content_codes_list[i],
                  "&crimetypes=101-903&timefrom=1-2014$&timeto=12-2014&groupby=area")
  raw.result_crimes <- GET(url = url2, path = path2)
  this.raw.content_crimes <- rawToChar(raw.result_crimes$content)
  this.content_crimes <- fromJSON(this.raw.content_crimes)
  output.df <- as.data.frame(this.content_crimes)
  if (nrow(output.df)!=0){
    output.df$object_ID <- this.content_codes_list[i]
    if (i==1){
      this.content_crimes_df <- output.df
    }else{
      this.content_crimes_df <- rbind.data.frame(this.content_crimes_df, output.df)
    }
  }
}

結果：

this.content_crimes_df

    crimes.CrimeRate crimes.Found crimes.Solved object_ID
1          8239.2655         3051           587    001110
2          2012.8364         2603           626    001111
3          2322.2749         1176           202    001112
4          3462.3317         2854           882    001114
5           268.7800          970           323    001115
6           422.5964         1556           414    001116
7           269.8192          679           241    001117
...