Преобразовать кадр данных в json

У меня есть кадр данных, который мне нравится преобразовывать в формат json:

мой кадр данных с именем res1:

library(rjson)

structure(list(id = c(1, 2, 3, 4, 5), value = structure(1:5, .Label = c("server1", 
"server2", "server3", "server4", "server5"), class = "factor")), .Names = c("id", 
"value"), row.names = c(NA, -5L), class = "data.frame")

когда я это сделаю:

toJSON(res1)

Я получаю это:

{"id":[1,2,3,4,5],"value":["server1","server2","server3","server4","server5"]}

Мне нужно, чтобы этот вывод json был таким, какие-нибудь идеи?

[{"id":1,"value":"server1"},{"id":2,"value":"server2"},{"id":3,"value":"server3"},{"id":4,"value":"server4"},{"id":5,"value":"server5"}]

Ответ 1

Как насчет

library(rjson)
x <- toJSON(unname(split(res1, 1:nrow(res1))))
cat(x)
# [{"id":1,"value":"server1"},{"id":2,"value":"server2"},
# {"id":3,"value":"server3"},{"id":4,"value":"server4"},
# {"id":5,"value":"server5"}]

Используя split(), мы по существу разбиваем большой файл data.frame на отдельный файл данных для каждой строки. И удалив имена из результирующего списка, функция toJSON завершает результаты в массиве, а не в именованном объекте.

Ответ 2

Существует пакет jsonlite для решения именно этой проблемы: "Практическое и согласованное сопоставление данных JSON и объектов R".

Функция toJSON предоставляет этот желаемый результат с параметрами по умолчанию:

library(jsonlite)
x <- toJSON(res1)
cat(x)

## [{"id":1,"value":"server1"},{"id":2,"value":"server2"},
## {"id":3,"value":"server3"},{"id":4,"value":"server4"},
## {"id":5,"value":"server5"}]

Ответ 3

Теперь вы можете просто просто вызвать jsonlite::write_json() непосредственно на dataframe.

Ответ 4

Вы также можете использовать library(jsonify)

jsonify::to_json( res1 )
# [{"id":1.0,"value":"server1"},{"id":2.0,"value":"server2"},{"id":3.0,"value":"server3"},{"id":4.0,"value":"server4"},{"id":5.0,"value":"server5"}]