Wie Spalte eines Datenrahmens im JSON-Format in R konvertieren

Question

 email foo bar 
1 a@g.com 23  34 
2 b@g.com 43  34 
3 c@g.com 35  32 

Jetzt möchte ich JSON docs für jede E-Mail, der folgende Formular erstellen:
doc 1: { "email" : "a@g.com"}
doc 2: { "email" : "b@g.com"}
doc 3 : { "email" : "c@g.com"}

Mein endgültiges Ziel ist es, diese Dokumente in MongoDB mit dbInsertDocument() von RMongo einfügen.
Ich spielte mit toJSON(), konnte aber keinen Weg finden. Wie konvertiere ich final$email in JSON-Dokumente wie oben beschrieben?

Answer 1

Ich bin mir nicht sicher, ob dies ist, was Sie brauchen: final$email hat nicht Spaltennamen, damit es nicht in der Ausgabe von toJSON(final$email)

library(jsonlite) 

txt <- "email foo bar 
1 a@g.com 23 34 
2 b@g.com 43 34 
3 c@g.com 35 32" 

final <- read.table(text=txt, stringsAsFactors = FALSE) 
toJSON(final$email) 
# [1] "[\"a@g.com\",\"b@g.com\",\"c@g.com\"]"  

# final$email has to be converted to data.frame 
dt <- data.frame(final$email) 
colnames(dt) <- "email" 
toJSON(dt) 
# [{"email":"a@g.com"},{"email":"b@g.com"},{"email":"c@g.com"}] 

Answer 2

Ich denke, enthalten ist, sollten Sie zuerst konvertieren Sie Ihre data.frame zu einer Liste von Listen:

## basically you split your data.frame by row 
## for each row you convert it as a list 
LMAo <- unname(lapply(split(dx,seq_len(nrow(dx))), function(x) as.list(x))) 

## auto unboxing to no treat scalar as vector 
jsonlite::toJSON(LMAo,auto_unbox = T) 
[ 
    {"email":"a@g.com","foo":23,"bar":34}, 
    {"email":"b@g.com","foo":43,"bar":34}, 
    {"email":"c@g.com","foo":35,"bar":32} 
] 

## same result using RJSONIO 
cat(RJSONIO::toJSON(LMAo))