我有实验数据表示为每个实验的键值对的序列.一组相关实验被序列化为
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
原文地址:https://www.jb51.cc/js/155015.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。