如何将R语言DataFrame转换为无外层方括号的JSON对象？

问题背景 #

现有如下DataFrame：

df <- data.frame(first_name = c("John", "Jane"),
                 last_name  = c("Doe", "Doe2"),
                 age        = c(20, 30))

需要将每行转换为无外层方括号的单个JSON对象（目标API要求此格式），但直接使用jsonlite::toJSON(df, auto_unbox = TRUE, pretty = TRUE)或拆分后转换，结果始终带有外层方括号。

可行解决方案 #

方法1：用apply逐行转列表后生成JSON

DataFrame的每行默认是数据框结构，toJSON会将其识别为数组，所以先把每行转成普通列表，再调用toJSON：

library(jsonlite)

# 逐行处理
lapply(seq_len(nrow(df)), function(i) {
  row_list <- as.list(df[i, ])
  toJSON(row_list, auto_unbox = TRUE, pretty = TRUE)
})

执行后会得到两个独立的JSON对象，分别对应两行数据：

{
  "first_name": "John",
  "last_name": "Doe",
  "age": 20
}

{
  "first_name": "Jane",
  "last_name": "Doe2",
  "age": 30
}

方法2：用purrr配合group_split处理

如果用dplyr::group_split拆分，得到的是单个行的DataFrame列表，需要再把每个小DataFrame转成列表：

library(dplyr)
library(purrr)
library(jsonlite)

# 拆分后转列表再生成JSON
df %>%
  group_split(row_number()) %>%
  map(~ as.list(.x) %>% toJSON(auto_unbox = TRUE, pretty = TRUE))

这个方法和方法1效果一致，适合习惯tidyverse语法的场景。

方法3：直接循环处理（基础R写法）

如果不想加载额外包，用基础R循环也可以实现：

library(jsonlite)

json_results <- vector("list", nrow(df))
for (i in 1:nrow(df)) {
  json_results[[i]] <- toJSON(as.list(df[i, ]), auto_unbox = TRUE, pretty = TRUE)
}

关键原理 #

DataFrame的行本质是单列数据框，toJSON会将数据框解析为JSON数组（带方括号）；而普通列表会被解析为JSON对象（带大括号），所以核心是把每行从数据框结构转换为普通列表，再生成JSON。

内容的提问来源于stack exchange，提问作者deschen