從dataFrame到R中的分組JSON

Question

我在 R 中有一個數據框：

ID   var1  var2 
1    12    Name1
1    13    Name4
2    13    Name2
3    14    Name3

我希望在 json 中轉換具有相同 ID 的分組：

{
"group":
[
{"ID" : 1, "var1": 12, "var2": "Name1" },
{"ID" : 1, "var1": 13, "var2": "Name4" }
]
},
{
"group":
[
{"ID" : 2, "var1": 13, "var2": "Name2" }
]
},
{
"group":
[
{"ID" : 3, "var1": 14, "var2": "Name3" }
]
}

我還想將每個組保存在一個 JSON 文件中，因此，對於上面的示例，我將擁有三個 JSON 文件

但是我想不出一種方法來做到這一點，既不按我的意願掛載 JSON，也不將每個組分別保存在 JSON 文件中。

Answer 1

我們可以使用jsonlite

library(jsonlite)
library(purrr)
lst1 <-  map(split(df1, df1$ID), toJSON)
names(lst1) <- paste0('group', names(lst1))
toJSON(lst1)