Question

列表到数据框架已被广泛讨论here但我无法找到解决相当简单问题的解决方案：列表中包含不同数量的项目。

这是清单

require(json)
hdi <- fromJSON(file="http://data.undp.org/resource/y8j2-3vi9.json")

列表的第一个列表是

hdi[1]
[[1]]
[[1]]$`_2011_hdi_value`
[1] "0.887"

[[1]]$`_1990_hdi_value`
[1] "0.798"

[[1]]$`_2000_2013_average_annual_hdi_growth`
[1] "0.37"

[[1]]$`_1980_hdi_value`
[1] "0.757"

[[1]]$`_2010_hdi_value`
[1] "0.885"

[[1]]$`_2008_hdi_value`
[1] "0.879"

[[1]]$`_1990_2000_average_annual_hdi_growth`
[1] "0.62"

[[1]]$`_2012_hdi_value`
[1] "0.889"

[[1]]$`_2013_hdi_value`
[1] "0.890"

[[1]]$`_2005_hdi_value`
[1] "0.870"

[[1]]$`_2000_hdi_value`
[1] "0.849"

[[1]]$country
[1] "Very high human development"

[[1]]$`_1980_1990_average_annual_hdi_growth`
[1] "0.52"

但是列表中的项目数量各不相同

summary(as.numeric(summary(hdi)[,"Length"]))
#   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#   5.00   16.00   16.00   14.93   16.00   16.00

我想构建一个包含16列的数据框，其中NA表示该列表缺少值。

Answer 1

最简单的是

data <- jsonlite::fromJSON("http://data.undp.org/resource/y8j2-3vi9.json")

或者，使用rlist

library(rlist)
data <- list.stack(hdi, fill=TRUE)

Answer 2

你可以试试这个：

 require(RJSONIO)
 hdi <- fromJSON("http://data.undp.org/resource/y8j2-3vi9.json")
 #get the unique values of the column names
 columnnames<-unique(unlist(lapply(hdi,names)))
 #subset each element of the list with and rbind them together
 res<-do.call(rbind,lapply(hdi,function(x) x[columnnames]))
 colnames(res)<-columnnames

从那里，您可以强制数字列并将对象强制转换为data.frame。我建议您使用RJSONIO库来处理从/到json的转换，因为根据我的经验，它似乎更可靠。

R：将具有不同项目数的列表列表转换为数据帧

2 个答案: