3

次のようなjsonファイルがあります。

library(RCurl)
library(RJSONIO)
url <- 'http://www.pm25.in/api/querys/aqi_details.json?city=shijiazhuang&token=5j1znBVAsnSf5xQyNQyq'
web <- getURL(url)
raw <-fromJSON(web)

次のようにcsvファイルに変換したい:

aqi   area    co     co_24h no2 no2_24h o3 o3_24h o3_8h o3_8h_24h pm10
142   石家庄   1.509  1.412  95      47  3    137    35        90  119
pm10_24h pm2_5 pm2_5_24h position_name primary_pollutant  quality so2
195      80    108       化工学校       颗粒物(PM2.5)       轻度污染 33
so2_24h station_code           time_point
32        1028A 2013-07-15T23:00:00Z

as.data.frame() などの関数を使用しましたが、うまくいきませんでした。これどうやってするの?助けてください、ありがとう。

4

1 に答える 1

2

もっと読みやすい解決策が必要です...次は、 を に置き換え、NULL各行NAで呼び出しas.data.frame、行を で結合しますrbind

tmp <- lapply( raw, function(u) 
  lapply(u, function(x) if(is.null(x)) NA else x)
)
tmp <- lapply( tmp, as.data.frame )
tmp <- do.call( rbind, tmp )
tmp
于 2013-07-15T17:20:40.210 に答える