在R中创建具有多个子对象的Json对象

如何使用data.frame（MyData）创建JSON对象，如下所示。我尝试了其他方法，但这个问题看起来很独特

ID   Station   Size 
1      Zeta    Big  
2      Zeta Medium  
3      Zeta  small  
4      Yota    Big  
5      Yota Medium  
6      Yota  small  

预期结果

{
    "name": "bubble",
    "children": [{
        "name": "Zeta",
        "children": [{
            "name": "big"
        }, {
            "name": "Medium"
        }, {
            "name": "small"
        }]
    }, {
        "name": "Yota",
        "children": [{
            "name": "big"
        }, {
            "name": "Medium"
        }, {
            "name": "small"
        }]
    }]
}

这是我搜索过但无法更改的内容

makeList<-function(x){
  if(ncol(x)>2){
    listSplit<-split(x[-1],x[1],drop=T)
    lapply(names(listSplit),function(y){list(name=y,children=makeList(listSplit[[y]]))})
  }else{
    lapply(seq(nrow(x[1])),function(y){list(name=x[,-1][y])})
  }
}


jsonOut<-toJSON(list(name="MyData",children=makeList(MyData[1])))
cat(jsonOut)

makeList2）{
listSplit数据

我使用的数据是

df <- data.frame(Station = c(rep("Zeta", 3), rep("Yota", 3)),
                 Size = rep(c("Big","Medium","Small"),2), stringsAsFactors = F)

现在我们可以构建我们的最终列表

df_child <- data.frame(name = n, stringsAsFactors = FALSE)
df_child$children <- l_child

lst <- list(name = "bubble", children = df_child)

我只是自己打出来的..所以..现在就解决了..你是受
JSON
结构的约束还是灵活？我想要JSON结构的原样，因为核心是用来扫描格式的那太棒了..一个小小的疑问，我怎么得到n？对于dfu child
n@TheLion中的泛化解决方案，事实上，
n
是我们的
站_组
，所以我们不需要两个变量
## first element
lst <- list(name = "bubble")

## second element
l_child1 <- l$children$children[[1]]
l_child2 <- l$children$children[[2]]
l_child <- list(data.frame(name=l_child1), data.frame(name=l_child2))

n <- c("Zeta", "Yota")
df_child <- data.frame(name = n, stringsAsFactors = F)

df_child$children <- l_child

lst <- list(name = "bubble", children = df_child)

toJSON(lst, pretty=F)
# {"name":["bubble"],"children":[{"name":"Zeta","children":[{"name":"big"},{"name":"Medium"},{"name":"small"}]},{"name":"Yota","children":[{"name":"big"},{"name":"Medium"},{"name":"small"}]}]} 

n <- unique(df$Station)
l_child <- lapply(1:length(n), FUN=function(x){
  t <- data.frame(name = (df[df$Station == n[x], "Size"]), stringsAsFactors=F)
  return(t)
})

df_child <- data.frame(name = n, stringsAsFactors = FALSE)
df_child$children <- l_child

lst <- list(name = "bubble", children = df_child)

> toJSON(lst, pretty=T)
{
  "name": ["bubble"],
  "children": [
    {
      "name": "Zeta",
      "children": [
        {
          "name": "Big"
        },
        {
          "name": "Medium"
        },
        {
         "name": "Small"
        } 
      ]
    },
     ... etc...