将R数据帧写入信息报可读的JSON文件

Question

我正在尝试将数据框写入Infogram可以识别的JSON格式，以实现实时更新的自动化。 我一直在使用R和jsonlite包。

例如：

df <- data.frame(X = c(1,2,3),
                 Y = c(5,7,8))
df

#  X Y
#1 1 5
#2 2 7
#3 3 8

我想出了：

require(jsonlite)

rbind(as.matrix(t(names(df))), 
      as.matrix(df)) %>% 
  toJSON(pretty = T) # or write_json(filename, pretty = T) to write straight to file

结果是：

[
  ["X", "Y"],
  ["1", "5"],
  ["2", "7"],
  ["3", "8"]
] 

所需的格式本质上是上述格式，但用一对额外的方括号括起来（请注意，第一个数组由列标题组成，然后每个后续数组都是一个观察值）。

[[
  ["X", "Y"],
  ["1", "5"],
  ["2", "7"],
  ["3", "8"]
]]

有没有简单的方法可以做到这一点？ 谢谢

Answer 1

require(jsonlite)

## The data.frame
df <- data.frame(X = c(1,2,3),
                 Y = c(5,7,8))

现在您可以将对象修改为列表，然后在json输出中获得相同的列表项：

mat <- list(rbind(as.matrix(t(names(df))), as.matrix(df)))

现在有了您想要的额外括号：

toJSON(mat, pretty = T)