转换JSON词典列表以便在R中进行分析

我有实验数据表示为每个实验的键值对的序列.一组相关实验被序列化为 JSON中这些dicts的列表.这可以通过rjson包在R中解析,但是数据以一种难以分析的形式加载
data <- fromJSON('[{"k1":"v1","k2":"v2"},{"k1":"v3","k2":"v4"}]')

产量

[[1]]
[[1]]$k1
[1] "v1"

[[1]]$k2
[1] "v2"


[[2]]
[[2]]$k1
[1] "v3"

[[2]]$k2
[1] "v4"

尝试使用as.data.frame(data)将其直接转换为data.frame会产生:

k1 k2 k1.1 k2.1
1 v1 v2   v3   v4

清楚地将所有实验中的键/值对序列视为平坦的一维列表.

我想要的是一个更传统的表,每个实验都有一行,每个唯一键有一列:

k1 k2
1 v1 v2
2 v3 v4

如何在R中干净地表达这种变换?

解决方法

在进行列表处理时,l * ply函数可能是您最好的朋友.试试这个:
> library(plyr)
> ldply(data,data.frame)
  k1 k2
1 v1 v2
2 v3 v4

plyr在幕后做了一些非常好的处理来处理不规则列表之类的事情(例如,当每个列表不包含相同数量的元素时).这在JSON和XML中很常见,并且处理基本函数很棘手.

或者使用基本功能

> do.call("rbind",lapply(data,data.frame))

如果你有不规则的列表,你可以使用rbind.fill(来自plyr)而不是rbind,但我建议你从一开始就使用plyr让你的生活更轻松.

编辑:

关于你更复杂的例子,使用Hadley的建议很容易解决这个问题:

> x<-list(list(k1=2,k2=3),list(k2=100,k1=200),list(k1=5,k3=9))
> ldply(x,data.frame)
   k1  k2 k3
1   2   3 NA
2 200 100 NA
3   5  NA  9

相关文章

前言 做过web项目开发的人对layer弹层组件肯定不陌生,作为l...
前言 前端表单校验是过滤无效数据、假数据、有毒数据的第一步...
前言 图片上传是web项目常见的需求,我基于之前的博客的代码...
前言 导出Excel文件这个功能,通常都是在后端实现返回前端一...
前言 众所周知,js是单线程的,从上往下,从左往右依次执行,...
前言 项目开发中,我们可能会碰到这样的需求:select标签,禁...