Question

我想使用R格式的data.frame中的jsonlite包获取嵌套的对象数组（JSON）。让我举个例子

library(jsonlite)
time <- c(1,1,2,2)
ps <- c("p1","p2","p1","p2")
v1 <- c(5,6,7,8)
v2 <- c(10,11,12,13)
df <- data.frame(ps, v1,v2)
toJSON(df)

此处df是R中的数据框，我获得了Json格式的对象数组：

[{"ps":"p1","v1":5,"v2":10},
 {"ps":"p2","v1":6,"v2":11},
 {"ps":"p1","v1":7,"v2":12},
 {"ps":"p2","v1":8,"v2":13}]

但是，我想实现以下输出，其中基本上我有一个嵌套结构。在这里添加类似于另一个分组参数（时间）的内容，df的长格式看起来像

df2 <- data.frame(time,ps, v1,v2)

是

df2
  time ps v1 v2
1    1 p1  5 10
2    1 p2  6 11
3    2 p1  7 12
4    2 p2  8 13

我希望实现（以Json格式）格式的最终输出是

[{
  "time": "1"
  "all_ps":[
    {
      "ps":"p1",
      "v1":5,
      "v2":10    
    },
    {
      "ps":"p2",
      "v1":6,
      "v2":11
    }]
  },
  {
    "time": "2"
    "all_ps":[
  {
    "ps":"p1",
    "v1":5,
    "v2":10    
  },
  {
    "ps":"p2",
    "v1":6,
    "v2":11
  }]  
  }
 ]

其中all_ps就像一个额外的结构或分组。给出了all_ps，但我不知道如何将其添加到数据框以显示所需的输出。如何使用jsonlite在R中实现此目的？

Answer 1

这有效：

library(magrittr)
library(jsonlite)
lapply(as.list(1:2), function(x) list(time = as.character(x), 
                                      "all_ps" = df[time == x, ])) %>%
    toJSON(auto_unbox = TRUE)

Answer 2

在不知道time列中的内容的情况下拆分数据框的另一种方法：

library(jsonlite)
ansLs <- lapply(split(df2, df2$time), 
    function(x) list(time=as.character(x$time[1]),  all_ps=x[-1]))
toJSON(unname(ansLs), auto_unbox = TRUE)

如何从数据框创建嵌套的对象数组

2 个答案: