R语言中如何从数据框批量生成符合JSON结构的映射列表？

处理大尺寸数据框时完全无需逐行手写嵌套列表的赋值逻辑，直接通过数据分组逻辑即可批量生成符合要求的结构，以下是两种可直接复用的实现方式：

方式1：基础R原生实现（无额外依赖） #

假设原始数据框命名为df，包含arId、lrId两列字段，可直接通过分组拆分批量构造目标结构：

# 按AR ID分组，拆分每个AR对应的LR ID集合
split_result <- split(df$lrId, df$arId)

# 批量生成目标嵌套列表
list_tot <- lapply(names(split_result), function(current_ar) {
  list(
    arId = current_ar,
    lrIds = as.list(split_result[[current_ar]])
  )
})

# 生成与预期格式一致的JSON结果
jsonData <- jsonlite::toJSON(list_tot, auto_unbox = TRUE)

• 该实现完全适配「一个AR对应多个LR」的业务规则，不管单个AR对应1个还是10个LR ID，代码逻辑不需要做任何调整
• 搭配auto_unbox = TRUE参数可自动识别单值长度的元素，省去手动逐行转list的冗余操作，最终输出的JSON格式和手动构造的结果完全一致

方式2：tidyverse生态简洁实现 #

如果日常已经使用tidyverse系列工具，可通过链式语法写出更易维护的代码：

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

list_tot <- df %>%
  # 按AR ID分组，聚合对应的LR ID集合
  group_by(arId) %>%
  summarise(lrIds = list(lrId), .groups = "drop") %>%
  # 转换为要求的嵌套列表结构
  pmap(~list(arId = .x, lrIds = .y))

jsonData <- toJSON(list_tot, auto_unbox = TRUE)

常见小问题修正 #

之前直接调用toJSON得到的带外层转义引号的字符串包裹结果，只要在调用时加上auto_unbox = TRUE参数，即可输出标准结构化JSON，不会出现多余的转义字符，从3行小数据到上万行大数据都可以稳定运行。

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