json - json格式到csv格式的转换，使用R

Question

我有一个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() 和其他函数，但是没有用。我怎样才能做到这一点？请帮助我，谢谢。

Answer 1

必须有一个更具可读性的解决方案...以下将NULLs替换为 s 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