如何将igraph自定义图属性置于JSON顶层而非attributes字段？

我尝试为igraph对象添加自定义图属性，使用以下代码：

graph = set_graph_attr(graph, "directed", FALSE)
data_json <- d3_igraph(igraph)
write(data_json, "graph.json")

输出的JSON中，新增属性会被放在attributes字段内：

{
  "nodes": [
     {
        "name": "something"
     },
     {
        "name": "something_else"
     }
  ],
  "links": [
      {
         "source": "something",
         "target": "something_else"
      }
   ],
  "attributes": {
      "directed": false
  }
}

但我希望将自定义属性（如directed）置于JSON顶层，而非attributes字段中，预期输出如下：

{
  "nodes": [
     {
        "name": "something"
     },
     {
        "name": "something_else"
     }
  ],
  "links": [
      {
         "source": "something",
         "target": "something_else"
      }
   ],
  "attributes": {
  },
  "directed": false
}

请问是否可行？后续我还计划添加多个自定义属性，包括结构更复杂的元数据。

可行，d3_igraph默认会将igraph的图属性打包到attributes字段，你可以通过手动解析、修改JSON结构来实现需求，具体步骤如下：

• 先将d3_igraph输出的JSON字符串转换为R列表对象，方便修改
• 遍历attributes字段中的所有键值对，将其添加到列表的顶层
• 可选：清空原attributes字段（如果不需要保留空字段也可以直接删除）
• 将修改后的列表重新转换为JSON字符串并写入文件

示例代码：

# 为igraph对象添加自定义属性（包括复杂元数据）
graph <- set_graph_attr(graph, "directed", FALSE)
graph <- set_graph_attr(graph, "metadata", list(author = "Ryan", version = "1.0", tags = c("network", "visualization")))

# 导出JSON字符串并转换为R列表
data_json <- d3_igraph(graph)
graph_list <- jsonlite::fromJSON(data_json)

# 将attributes中的属性移至顶层
for (attr_name in names(graph_list$attributes)) {
  graph_list[[attr_name]] <- graph_list$attributes[[attr_name]]
}

# 清空原attributes字段（可选操作）
graph_list$attributes <- list()

# 转换为格式化后的JSON并写入文件
final_json <- jsonlite::toJSON(graph_list, auto_unbox = TRUE, pretty = TRUE)
write(final_json, "graph.json")

这段代码会将所有自定义图属性（无论是简单的布尔值还是嵌套的复杂元数据）都移到JSON的顶层，满足你的需求。

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