R语言如何将dataframe转换为指定多层结构的JSON文件

核心问题原因 #

转义问题的核心是你将预生成的JSON字符串作为普通文本存入dataframe后，JSON序列化工具会自动对字符串中的双引号做转义处理，不需要提前将子节点转换为JSON字符串，直接构造嵌套列表结构再一次性序列化即可解决问题。

正确实现方案 #

1. 构造嵌套列表结构 #

将拆分完成的4个子dataframe直接放入命名列表中，列表名对应4个顶级节点名称：

library(jsonlite)

# 替换为你拆分好的4个子dataframe变量名
result_nest <- list(
  message = df_message,
  container = df_container,
  inland = df_inland,
  delivery = df_delivery
)

2. 一次性转换为JSON #

直接对嵌套列表调用toJSON()函数，根据业务需求调整参数：

• 子节点为单条数据时添加auto_unbox = TRUE，自动去除多余的外层数组括号
• 需格式化输出时添加pretty = TRUE

final_json <- toJSON(result_nest, auto_unbox = TRUE, pretty = TRUE)

# 输出验证或写入文件
writeLines(final_json, "business_data.json")

3. 原有逻辑修复方案（保留子节点预转JSON的场景） #

如果你必须保留先单独转换子节点的逻辑，不要将子JSON字符串存入dataframe，用unbox()标记为标量后放入列表再序列化：

# 替换为你预生成的4个子JSON字符串变量名
result_nest <- list(
  message = unbox(json_message),
  container = unbox(json_container),
  inland = unbox(json_inland),
  delivery = unbox(json_delivery)
)
final_json <- toJSON(result_nest, auto_unbox = TRUE, pretty = TRUE)

常用参数说明 #

• dataframe = "rows"/"columns"：指定dataframe的转换格式，默认按行转换为对象数组
• na = "null"/"string"：指定空值的输出格式，默认转换为JSON的null值
• digits = NA：指定数值精度，NA为保留全精度

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