Question

我有实验数据表示为每个实验的键值对的序列。一组相关实验被序列化为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"

尝试直接将data.frame转换为as.data.frame(data)会产生：

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

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

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

  k1 k2
1 v1 v2
2 v3 v4

如何在R？

中干净地表达这种转换

Answer 1

在进行列表处理时，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来制作你的> 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生活更轻松。

编辑：

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

{{1}}

Answer 2

这很有趣。最简单的方法是修复Python代码，以便更容易转换dict。

但是，这个怎么样？

k1 <- unlist(lapply(data,FUN=function(x){return(x[[1]])}))
k2 <- unlist(lapply(data,FUN=function(x){return(x[[2]])}))
data.frame(k1,k2)

您仍然需要将k1和k2转换为正确的数据类型，但这应该可以实现您所需的目标。

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

2 个答案: