R 到 JSON：嵌入数组时遇到问题

Question

我正在使用 jsonlite.

将一些数据从 R 转换为 JSON

所需的输出如下所示：

[
  {
    "data": {
      "name": "foo",
      "moogs": [
        {
          "x": 1,
          "y": 2
        },
        {
          "x": 2,
          "y": 1
        }
      ]
    }
  }
]

我正在努力处理 moogs 的嵌入式数组值。我最接近的解决方案是序列化它：

[
  {
    "data": {
      "name": "foo",
      "moogs": "[{\"x\":1,\"y\":2},{\"x\":2,\"y\":1}]"
    }
  }
]

数据来自foo.R:

name = "foo"

mtx = matrix(rep(0, 4), ncol=2, nrow=2)
mtx[1, 2] = 1
mtx[2, 1] = 1

转换执行以下操作：

library(jsonlite)
source("foo.R")

moogs = data.frame()
for(x in 1:nrow(mtx)) {
  for(y in 1:ncol(mtx)) {
    if(mtx[x, y] == 1) {
      moogs = rbind(moogs, data.frame(x=x, y=y))
    }
  }
}

data = fromJSON('[{}]')
data$name = name
data$moogs = toJSON(moogs)

container = fromJSON('[{}]')
container$data = data

print(toJSON(container, pretty=TRUE))

如果我改变

data$moogs = toJSON(moogs)

至

data$moogs = moogs

我收到以下错误：

Error in `$<-.data.frame`(`*tmp*`, moogs, value = list(x = 1:2, y = 2:1)) :
  replacement has 2 rows, data has 1

是否可以生成嵌入式数组？

Answer 1

您需要带有列表列的数据框。做：

data = data.frame(name=name, moogs=I(list(moogs))) 
container = data.frame(data = I(data))

然后：

> toJSON(container, pretty = TRUE)
[
  {
    "data": {
      "name": "foo",
      "moogs": [
        {
          "x": 1,
          "y": 2
        },
        {
          "x": 2,
          "y": 1
        }
      ]
    }
  }
]

Answer 2

如果你模仿列表（和数据框，它们是列表）的嵌套，你可以创建一个可以直接转换的 R 对象：

mtx <- matrix(c(0, 1, 1, 0), 2, dimnames = list(NULL, c('x', 'y')))
mtx
#>      x y
#> [1,] 0 1
#> [2,] 1 0

x <- list(data = list(name = 'foo', moogs = as.data.frame(mtx)))
str(x)
#> List of 1
#>  $ data:List of 2
#>   ..$ name : chr "foo"
#>   ..$ moogs:'data.frame':    2 obs. of  2 variables:
#>   .. ..$ x: num [1:2] 0 1
#>   .. ..$ y: num [1:2] 1 0

jsonlite::toJSON(x, auto_unbox = TRUE, pretty = TRUE)
#> {
#>   "data": {
#>     "name": "foo",
#>     "moogs": [
#>       {
#>         "x": 0,
#>         "y": 1
#>       },
#>       {
#>         "x": 1,
#>         "y": 0
#>       }
#>     ]
#>   }
#> }

R 到 JSON：嵌入数组时遇到问题

R to JSON: trouble embedding an array

r

json

jsonlite