R: Общее сведение JSON к data.frame

Привет @Sim У меня была причина подумать о твоей проблеме вчера определить:

flatten<-function(x) {
    dumnames<-unlist(getnames(x,T))
    dumnames<-gsub("(*.)\\.1","\\1",dumnames)
    repeat {
        x <- do.call(.Primitive("c"), x)
        if(!any(vapply(x, is.list, logical(1)))){
           names(x)<-dumnames
           return(x)
        }
    }
}
getnames<-function(x,recursive){

    nametree <- function(x, parent_name, depth) {
        if (length(x) == 0) 
            return(character(0))
        x_names <- names(x)
        if (is.null(x_names)){ 
            x_names <- seq_along(x)
            x_names <- paste(parent_name, x_names, sep = "")
        }else{ 
            x_names[x_names==""] <- seq_along(x)[x_names==""]
            x_names <- paste(parent_name, x_names, sep = "")
        }
        if (!is.list(x) || (!recursive && depth >= 1L)) 
            return(x_names)
        x_names <- paste(x_names, ".", sep = "")
        lapply(seq_len(length(x)), function(i) nametree(x[[i]], 
            x_names[i], depth + 1L))
    }
    nametree(x, "", 0L)
}

(getnames адаптировано из AnnotationDbi:::make.name.tree)

(flatten адаптировано из обсуждения здесь Как сгладить список в список без принуждения?)

как простой пример

my_data<-list(x=list(1,list(1,2,y='e'),3))

> my_data[['x']][[2]][['y']]
[1] "e"

> out<-flatten(my_data)
> out
$x.1
[1] 1

$x.2.1
[1] 1

$x.2.2
[1] 2

$x.2.y
[1] "e"

$x.3
[1] 3

> out[['x.2.y']]
[1] "e"

так что в результате получается сглаженный список с примерно той структурой именования, которую вы предлагаете. Принуждение также избегается, что является плюсом.

Более сложный пример

library(RJSONIO)
library(RCurl)
json.data<-getURL("http://www.reddit.com/r/leagueoflegends/.json")
dumdata<-fromJSON(json.data)
out<-flatten(dumdata)

ОБНОВИТЬ

наивный способ убрать трейлинг .1

my_data<-list(x=list(1,list(1,2,y='e'),3))
gsub("(*.)\\.1","\\1",unlist(getnames(my_data,T)))

> gsub("(*.)\\.1","\\1",unlist(getnames(my_data,T)))
[1] "x.1"   "x.2.1" "x.2.2" "x.2.y" "x.3"  

В R есть два пакета для обработки ввода JSON: rjson и RJSONIO. Если я правильно понимаю, что вы подразумеваете под «набором нециклических однородных или разнородных структур данных», я думаю, что любой из этих пакетов будет импортировать структуру такого типа как list.

Затем вы можете сгладить этот список (в вектор), используя функцию unlist.

Если список правильно структурирован (не вложенный список, в котором каждый элемент имеет одинаковую длину), то as.data.frame предлагает альтернативу для преобразования списка в фрейм данных.

Пример:

(my_data <- list(x = list('1' = 1, '2' = list(y = 2))))
unlist(my_data)

Пакет jsonlite является ответвлением пакета RJSONIO, специально разработанным для упрощения преобразования между JSON и фреймами данных. Вы не предоставляете никаких примеров данных json, но я думаю, что это может быть то, что вы ищете. Взгляните на этот сообщение в блоге или виньетки.

Отличный ответ с функциями flatten и getnames. Потребовалось несколько минут, чтобы выяснить все параметры, необходимые для перехода от вектора строк JSON к data.frame, поэтому я решил записать это здесь. Предположим, что jsonvec — это вектор строк JSON. Далее строится data.frame (data.table), где каждая строка содержит одну строку, а каждый столбец соответствует разным возможным конечным узлам дерева JSON. Любая строка, в которой отсутствует определенный конечный узел, заполняется NA.

library(data.table)
library(jsonlite)
parsed = lapply(jsonvec, fromJSON, simplifyVector=FALSE)
flattened = lapply(parsed, flatten) #using flatten from accepted answer
d = rbindlist(flattened, fill=TRUE)