Wie Sie zu schreiben json mit Kindern aus R

Ich möchte ein R-Daten.frame in ein JSON-Objekt, um es zu verwenden für die Vorbereitung von Daten-Visualisierungen mit d3.js. Ich fand eine Menge von Fragen, fragte, wie man JSON in R, aber nur sehr wenige, wie das schreiben von Daten von R auf JSON.

Ein besonderes problem ist, dass die JSON-Datei muss verschachtelt werden, indem Faktoren, d.h. Spalten die Daten.frame. Ich denke, dass das schreiben von verschachtelten Listen könnte eine Lösung sein, aber ich habe schon Fehler beim erstellen einer verschachtelten Liste von Daten.Rahmen 🙁

Habe ich preprared ein Beispiel:

dies stellt meine Daten.frame (genannt "MyData").

ID  Location Station   Size Percentage
1     Alpha    Zeta    Big       0.63
2     Alpha    Zeta Medium       0.43
3     Alpha    Zeta  small       0.47
4     Alpha    Yota    Big       0.85
5     Alpha    Yota Medium       0.19
6     Alpha    Yota  small       0.89
7      Beta   Theta    Big       0.09
8      Beta   Theta Medium       0.33
9      Beta   Theta  small       0.79
10     Beta    Meta    Big       0.89
11     Beta    Meta Medium       0.71
12     Beta    Meta  small       0.59

nun, ich möchte es in etwas wie dieses gültige json-format, einschließlich der Kinder-Knoten:

   {
 "name":"MyData",
 "children":[
   {
     "name":"Alpha",
     "children":[
        {
           "name":"Zeta",
           "children":[
              {
                 "name":"Big",
                 "Percentage":0.63
              },
              {
                 "name":"Medium",
                 "Percentage":0.43
              },
              {
                 "name":"Small",
                 "Percentage":0.47
              }
           ]
        },
        {
           "name":"Yota",
           "children":[
              {
                 "name":"Big",
                 "Percentage":0.85
              },
              {
                 "name":"Medium",
                 "Percentage":0.19
              },
              {
                 "name":"Small",
                 "Percentage":0.89
              }
           ]
        }
    ]   
},
    {
     "name":"Zeta",
     "children":[
        {
           "name":"Big",
           "Percentage":0.63
        },
        {
           "name":"Medium",
           "Percentage":0.43
        },
        {
           "name":"Small",
           "Percentage":0.47
        }
     ]
  },
  {
     "name":"Yota",
     "children":[
        {
           "name":"Big",
           "Percentage":0.85
        },
        {
           "name":"Medium",
           "Percentage":0.19
        },
        {
           "name":"Small",
           "Percentage":0.89
        }
     ]
  }
  ]
 }

Wenn jemand könnte mir helfen, ich wäre sehr dankbar!
danke

IMO, das hat nichts zu tun mit JSON per se, nur ähneln sich diese Struktur innerhalb von R, und du bist gut zu gehen.
Sie haben Recht, das ist nichts JSON-spezifisch. meine Frage war vor allem darüber, wie man diese in einer bestimmten Struktur.

InformationsquelleAutor Jens | 2012-10-10

format r

23

Dies ist ein rekursiver Ansatz, der sauberer ist:
```
require(RJSONIO)

makeList<-function(x){
  if(ncol(x)>2){
    listSplit<-split(x[-1],x[1],drop=T)
    lapply(names(listSplit),function(y){list(name=y,children=makeList(listSplit[[y]]))})
  }else{
    lapply(seq(nrow(x[1])),function(y){list(name=x[,1][y],Percentage=x[,2][y])})
  }
}


jsonOut<-toJSON(list(name="MyData",children=makeList(MyData[-1])))
cat(jsonOut)
```
- genial! Jetzt ist es perfekt aussieht. 100% gültiges json. Um d3js Arbeit mit der Ausgabe musste ich die "Prozent" zu "Größe". Aber dein Ansatz ist absolut genial! Ich hoffe, ich kann mich anpassen / erweitern. Milliarden Dank !
- Dies kann angepasst werden, um nicht regulären Dateien, die auf Hierarchien (dh wenn die Anzahl der Hierarchien ist nicht konstant), indem Sie einen einfachen filter : <pre>x2 <- dplyr::filter(x, x[1] != "") ; listSplit <- split(x2[-1], x2[1], drop = TRUE)</pre>
- wo genau tut man drop in x2 <- filter(x, x[1] != ""); listSplit <- split(x2[-1], x2[1], drop = TRUE) direkt nach if(ncol(x)>2){ und alles lassen, was sonst der gleichen?
- möchte noch hinzufügen, dass dieser Ansatz funktioniert, wenn die Typen der Spalten (außer der letzten) sind nicht integer. Wenn Sie es ist, die Teilung basierend auf listSplit[[y]] wird wahrscheinlich basierend auf indices statt der Spalte name.
InformationsquelleAutor user1609452

Unter Verwendung einer Kombination von split und subset können bekommen, was Sie wollen. Zum Beispiel

library(RJSONIO)
list1<-split(subset(MyData,select=c(-Location)),Mydata$Location)
list2<-lapply(list1,function(x){split(subset(x,select=c(-Station)),x$Station,drop=TRUE)})
list3<-lapply(list2,function(x){lapply(x,function(y){split(subset(y,select=c(-Size,-ID)),y$Size,drop=TRUE)})})
jsonOut<-toJSON(list(MyData=list3))
jsonOut1<-gsub('([^\n]*?): \\{\n "Percentage"','\\{"name":\\1,"Percentage"',jsonOut)
jsonOut2<-gsub('"([^"]*?)": \\{','"name":"\\1","children":\\{',jsonOut1)

cat(jsonOut2)
{
 "name":"MyData","children":{
 "name":"Alpha","children":{
 "name":"Yota","children":{
{"name": "Big","Percentage":   0.85 
},
{"name":"Medium","Percentage":   0.19 
},
{"name":"small","Percentage":   0.89 
} 
},
"name":"Zeta","children":{
{"name": "Big","Percentage":   0.63 
},
{"name":"Medium","Percentage":   0.43 
},
{"name":"small","Percentage":   0.47 
} 
} 
},
"name":"Beta","children":{
 "name":"Meta","children":{
{"name": "Big","Percentage":   0.89 
},
{"name":"Medium","Percentage":   0.71 
},
{"name":"small","Percentage":   0.59 
} 
},
"name":"Theta","children":{
{"name": "Big","Percentage":   0.09 
},
{"name":"Medium","Percentage":   0.33 
},
{"name":"small","Percentage":   0.79 
} 
} 
} 
} 
}

ja interessant! aber hier werden die Variablen "Size" und "Percentage" getrennt sind. Jeder Staat der Variablen, d.h. Groß, sollten mit Ihrer Prozentualen Wert in einer einzelnen Zeile. Auch die "children" agrument fehlt. Ich werde versuchen zu hantieren, mit Ihrer Idee aufzuteilen. thx
Ich habe eine split auf Size und hässliche regex. Es ist nicht genau das, was Sie wollen, aber es vielleicht in der Nähe.
aaah jetzt verstehe ich, wie das funktioniert. Danke. Es ist zwar noch nicht vollständig arbeitet ich Stimmen Sie oben 🙂 Die json-validator ist nun, sich zu beschweren. Ich denke, die [] Klammern fehlen. Ich werde versuchen, dieses Problem zu beheben, indem Sie Ihre regex-Beispiele.

InformationsquelleAutor user1609452

Ich bin Molchen Schutzfolie von user1609452 Antwort und die Beantwortung der Frage über nicht reguläre Datei-Hierarchien. Wenn Sie eine Spalte, wo einige Daten haben Kinder und manche nicht, verwenden Sie die folgende:

makeList<-function(x){ 
if(ncol(x)>2){
    listSplit<-split(x[-1],x[1],drop=T)
    lapply(names(listSplit),function(y){
        if(as.character(listSplit[[y]][1,1]) > 0){
            list(name=y,children=makeList(listSplit[[y]]))
        } else {
            list(name=y,size=listSplit[[y]][1,2])
        }
        })
}else{
    lapply(seq(nrow(x[1])),function(y){list(name=x[,1][y],size=x[,2][y])})
}
}

Grundsätzlich prüfen wir, ob die aktuelle Zeile hat mehr Kinder, oder wenn Sie es einfach haben muss, um die Größe angehängt.

InformationsquelleAutor K Jones

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.