web-dev-qa-db-ja.com

データフレームを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"}]
jsonrrjson
25
user1471980

どう？

_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関数は結果を名前付きオブジェクトではなく配列にラップします。

21
MrFlick

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

これで、jsonlite::write_json()をデータフレームで直接簡単に呼び出すことができます。

1
Jared Wilber

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