Transposición de la lista de diccionarios JSON para el análisis en R

Question

Tengo datos experimentales expresados ​​como dicts de pares clave-valor para cada experimento. Un conjunto de experimentos relacionados se serializa como una lista de estos dicts en JSON. Esto es analizable en en R a través del paquete rjson, pero los datos se cargan en una forma que es un reto para analizar

data <- fromJSON('[{"k1":"v1","k2":"v2"}, {"k1":"v3","k2":"v4"}]') 

rendimientos

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

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


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

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

El intento de convertir esto en un data.frame directamente con as.data.frame(data) rendimientos :

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

claramente viendo la secuencia de pares clave/valor en todos los experimentos como una lista plana de 1 dimensión.

Lo que quiero es una tabla más convencional con una fila para cada experimento, y una columna para cada clave única:

k1 k2 
1 v1 v2 
2 v3 v4 

¿Cómo puedo expresar limpiamente esta transformada en R?

Answer 1

Las funciones l*ply pueden ser su mejor amigo al hacer con el procesamiento de listas. Prueba esto:

> library(plyr) 
> ldply(data, data.frame) 
    k1 k2 
1 v1 v2 
2 v3 v4 

plyr hace algún procesamiento muy agradable detrás de las escenas que lidiar con cosas como listas irregulares (por ejemplo, cuando cada lista no contiene el mismo número de elementos). Esto es muy común con JSON y XML, y es difícil de manejar con las funciones básicas.

O, alternativamente, utilizando funciones de base:

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

Le ofrecemos rbind.fill (de plyr) en lugar de rbind si tiene listas irregulares, pero te aconsejo usar sólo plyr desde el principio para hacer su vida más fácil .

Editar:

En cuanto a su ejemplo más complicado, con ofertas de sugerencia de Hadley con esta facilidad:

> 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 

Answer 2

Esto es interesante. La manera más fácil sería arreglar el código de Python para que el dict se pueda transformar más fácilmente.

Pero, ¿qué tal esto?

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

Tendrá que echar k1 y k2 en el tipo de datos correcto todavía, pero esto debe lograr lo que busca.