r - R将数据框转换为JSON

Question

我有一个要转换为 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"}]

Answer 1

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"}]

Answer 2

怎么样

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 分解为每一行的单独 data.frame。通过从结果列表中删除名称，该toJSON函数将结果包装在数组而不是命名对象中。

Answer 3

现在您可以轻松地jsonlite::write_json()直接在数据帧上调用。

Answer 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"}]