将多级json/list转换为data.frame或data.table

# 加载jsonlite和data.table包
library(jsonlite)
library(data.table)

# 从json文件中加载数据
data <- fromJSON("data.json")

# 将list数据转换为data.table
dt <- rbindlist(data)

flatten_json <- function(json, prefix = "") {
  result <- list()
  
  for (key in names(json)) {
    value <- json[[key]]
    
    if (is.list(value)) {
      result <- c(result, flatten_json(value, paste0(prefix, key, "_")))
    } else {
      result[[paste0(prefix, key)]] <- value
    }
  }
  
  return(result)
}

# 将多级json数据展开为扁平的数据结构
flattened_data <- flatten_json(data)

# 将展开后的数据转换为data.frame或data.table
df <- as.data.frame(flattened_data)
dt <- as.data.table(flattened_data)

# 对data.frame或data.table进行进一步的数据处理和分析
filtered_data <- subset(df, column == "value")
sorted_data <- dt[order(column)]
aggregated_data <- dt[, .(mean_value = mean(value)), by = column]