Question

我在 R 中有一个数据框，我想以特定格式将其序列化为 json。示例代码：

df_t<-data.frame(c(453:458),c(1:6), row.names = NULL)
colnames(df_t) <- c("area", "price")
jsonlite::toJSON(df_t)

以上代码的输出格式如下：

<块引用>

[{"area":453,"price":1},{"area":454,"price":2},{"area":455,"price":3},{"area" :456,"price":4},{"area":457,"price":5},{"area":458,"price":6}]

但我想要的格式是：

<块引用>

{"area":[453,454,455,456,457,458],"price":[1,2,3,4,5,6]}

为了获得我需要的格式，我编写了这段代码，它为我提供了与我期望的类似但用引号括起来的输出：

paste0( '{', colnames(df_t)[1], ':', jsonlite::toJSON(df_t[,1]),  ',', colnames(df_t)[2], ':', jsonlite::toJSON(df_t[,2]), '}')

<块引用>

“{面积：[453,454,455,456,457,458],价格：[1,2,3,4,5,6]}”

我的问题是有没有更好的方法来获得我想要的格式？数据帧是从 R 管道工 api 返回的，因此默认使用 jsonlite 序列化程序。

Answer 1

json 和 jsonlite 包更适合 list 格式。可能是更改默认序列化比简单地将 R 数据结构转换为匹配的工作量更大。

我会建议一些类似

df_t<-data.frame(c(453:458),c(1:6), row.names = NULL)
colnames(df_t) <- c("area", "price")

df_t_list <- list()
for(i in 1:ncol(df_t)) {
  df_t_list[[i]] <- df_t[ , i]
}
names(df_t_list) <- c("area", "price")

jsonlite::toJSON(df_t_list)

更改管道工 api

1 个答案: