使用所有递归索引作为列名称将嵌套列表转换为data.frame，并使用NAs填充缺少的列

# 定义一个递归函数，用于将嵌套列表转换为data.frame
list_to_dataframe <- function(lst) {
  if (is.list(lst)) {
    # 获取列表中的所有列名称
    col_names <- unique(unlist(lapply(lst, names)))
    
    # 创建一个空的data.frame
    df <- data.frame(matrix(NA, nrow = length(lst), ncol = length(col_names)))
    colnames(df) <- col_names
    
    # 递归地将嵌套列表中的数据填充到data.frame中
    for (i in 1:length(lst)) {
      df[i, ] <- list_to_dataframe(lst[[i]])
    }
    
    return(df)
  } else {
    return(lst)
  }
}

# 示例数据
nested_list <- list(
  list(a = 1, b = 2),
  list(a = 3, c = 4),
  list(b = 5, c = 6)
)

# 转换嵌套列表为data.frame
result <- list_to_dataframe(nested_list)

  a  b  c
1 1  2 NA
2 3 NA  4
3 NA  5  6