166

¿Hay alguna manera de importar datos de un archivo JSON a R? Más específicamente, el archivo es una matriz de objetos JSON con campos de cadena, objetos y matrices. El paquete RJSON no es muy claro sobre cómo lidiar con este http://cran.r-project.org/web/packages/rjson/rjson.pdf .

json r

— usuario313967
fuente

3

Duplicado: stackoverflow.com/questions/2061897/parse-json-with-r . Si tiene un ejemplo de datos específico, eso ayudaría. De lo contrario, rjson puede hacer lo que necesita, junto con la manipulación de datos (por ejemplo, con una función de aplicación o plyr).

— Shane

También similar a esta pregunta: stackoverflow.com/questions/2260147/… .

— Shane

Hola Shane, intenté usar RJSON. Estoy interesado principalmente en la manipulación de datos necesaria. Aquí hay un ejemplo de un archivo JSON con el que estoy trabajando. example.json: [{"ganador": "68694999", "votos": [{"ts": "jue 25 de marzo 03:13:01 UTC 2010", "usuario": {"nombre": "Lamur", "user_id": "68694999"}}, {"ts": "jue 25 mar 03:13:08 UTC 2010", "user": {"name": "Lamur", "user_id": "68694999"}} ], "lastVote": {"marca de tiempo": 1269486788526, "user": {"name": "Lamur", "user_id": "68694999"}}, "startPrice": 0}, ...]

— user313967

1

Una advertencia: si el archivo JSON es realmente grande, aparentemente las bibliotecas .so o .dll no lo procesarán. Un formato preferible es NetCDF, pero algunas organizaciones no son conscientes de este problema.

187

Primero instale el rjsonpaquete:

install.packages("rjson")

Luego:

library("rjson")
json_file <- "http://api.worldbank.org/country?per_page=10&region=OED&lendingtype=LNX&format=json"
json_data <- fromJSON(paste(readLines(json_file), collapse=""))

Actualización: desde la versión 0.2.1

json_data <- fromJSON(file=json_file)

— rcs
fuente

1

Tenga en cuenta que la edición se refiere a una actualización de la biblioteca, no a R. La actualización cambia la última línea del ejemplo anterior y aún necesita cargar en la biblioteca como se indicó anteriormente.

— Steven Waterman

90

jsonliteimportará el JSON en un marco de datos. Opcionalmente, puede aplanar objetos anidados. Las matrices anidadas serán marcos de datos.

> library(jsonlite)
> winners <- fromJSON("winners.json", flatten=TRUE)
> colnames(winners)
[1] "winner" "votes" "startPrice" "lastVote.timestamp" "lastVote.user.name" "lastVote.user.user_id"
> winners[,c("winner","startPrice","lastVote.user.name")]
    winner startPrice lastVote.user.name
1 68694999          0              Lamur
> winners[,c("votes")]
[[1]]
                            ts user.name user.user_id
1 Thu Mar 25 03:13:01 UTC 2010     Lamur     68694999
2 Thu Mar 25 03:13:08 UTC 2010     Lamur     68694999

— xn.
fuente

¡Absolutamente! ¡Es realmente más fácil trabajar con data.frames en lugar de listas cuando se filtran resultados!

— MS Berends

31

Un paquete alternativo es RJSONIO. Para convertir una lista anidada, lapply puede ayudar:

l <- fromJSON('[{"winner":"68694999",  "votes":[ 
   {"ts":"Thu Mar 25 03:13:01 UTC 2010", "user":{"name":"Lamur","user_id":"68694999"}},   
   {"ts":"Thu Mar 25 03:13:08 UTC 2010", "user":{"name":"Lamur","user_id":"68694999"}}],   
  "lastVote":{"timestamp":1269486788526,"user":
   {"name":"Lamur","user_id":"68694999"}},"startPrice":0}]'
)
m <- lapply(
    l[[1]]$votes, 
    function(x) c(x$user['name'], x$user['user_id'], x['ts'])
)
m <- do.call(rbind, m)

da información sobre los votos en su ejemplo.

— Karsten W.
fuente

1

x$user$name, x$user$user_idahora debería ser x$user['name'], x$user['user_id']. Además, m <- do.call(rbind, m)podría ser una mejor manera de convertir la lista a una matriz.

— jbaums

¿Hay algo así como la función convertToDataFrame para JSON (como hay para el paquete XML)?

— userJT

16

Si la URL es https, como se usa para Amazon S3, use getURL

json <- fromJSON(getURL('https://s3.amazonaws.com/bucket/my.json'))

— Antonio
fuente

11

PSA: getURL está en el paquete RCurl.

— Mark McDonald

1

También,Error in function (type, msg, asError = TRUE) : Protocol "s3" not supported or disabled in libcurl

— d8aninja

3

Primero instale el paquete RJSONIO y RCurl:

install.packages("RJSONIO")
install.packages("(RCurl")

Expandir fragmento

Pruebe el siguiente código con RJSONIO en la consola

library(RJSONIO)
library(RCurl)
json_file = getURL("https://raw.githubusercontent.com/isrini/SI_IS607/master/books.json")
json_file2 = RJSONIO::fromJSON(json_file)
head(json_file2)

Expandir fragmento

— Moby M
fuente

2

paquetes:

biblioteca (httr)
biblioteca (jsonlite)

He tenido problemas para convertir json a dataframe / csv. Para mi caso hice:

Token <- "245432532532"
source <- "http://......."
header_type <- "applcation/json"
full_token <- paste0("Bearer ", Token)
response <- GET(n_source, add_headers(Authorization = full_token, Accept = h_type), timeout(120), verbose())
text_json <- content(response, type = 'text', encoding = "UTF-8")
jfile <- fromJSON(text_json)
df <- as.data.frame(jfile)

luego de df a csv.

En este formato, debería ser fácil convertirlo a múltiples .csvs si es necesario.

La parte importante es la función de contenido debe tener type = 'text'.

— Aaron C
fuente

1

paquete de importación httr

library(httr)

Obtén la url

url <- "http://www.omdbapi.com/?apikey=72bc447a&t=Annie+Hall&y=&plot=short&r=json"
resp <- GET(url)

Imprimir contenido de resp como texto

content(resp, as = "text")

Imprimir contenido de resp

content(resp)

Use content () para obtener el contenido de resp, pero esta vez no especifique un segundo argumento. R se da cuenta automáticamente de que se trata de un JSON y convierte el JSON en una lista de R con nombre.

— Adarsh Pawar
fuente

Importar datos de un archivo JSON a R

paquete de importación httr

Obtén la url

Imprimir contenido de resp como texto

Imprimir contenido de resp