嘿，我完全懂你的痛点——str()输出的结构太杂乱，根本没法给非数据人员清晰展示可用数据。我写了个递归函数，能自动遍历嵌套列表（包括里面的数据框），提取所有底层变量的名称和类型，最后生成像数据库表结构一样的整洁表格。

实现代码 #

# 定义递归函数，提取嵌套列表的变量名和类型
extract_structure <- function(x, parent_name = "") {
  result <- list()
  
  # 遍历每个元素
  for (name in names(x)) {
    current_elem <- x[[name]]
    # 构建完整变量名（用.连接层级）
    full_name <- if (parent_name == "") name else paste(parent_name, name, sep = ".")
    
    if (is.list(current_elem) && !is.data.frame(current_elem)) {
      # 嵌套列表，递归处理
      result <- c(result, extract_structure(current_elem, full_name))
    } else if (is.data.frame(current_elem)) {
      # 数据框，遍历每一列
      for (col in names(current_elem)) {
        col_type <- class(current_elem[[col]])[1]
        result[[paste(full_name, col, sep = ".")]] <- col_type
      }
    } else {
      # 基础数据类型，直接提取类型
      elem_type <- class(current_elem)[1]
      result[[full_name]] <- elem_type
    }
  }
  
  # 转成整洁的数据框
  data.frame(
    names = names(result),
    values = unlist(result),
    row.names = NULL,
    stringsAsFactors = FALSE
  )
}

# 测试你的示例列表
my_list <- list( a = c(1,2,3), b = list( c = data.frame( d = c(1,2), e = c("a", "b") ) ), f = list( g = rep(1,10), h = "a" ) )

# 生成结构表格
structure_table <- extract_structure(my_list)
print(structure_table)

输出结果 #

运行代码后，你会得到这样的整洁表格：

额外说明 #

• 表格里的变量名用.展示层级（比如b.c.d表示b列表里的c数据框中的d列），非技术人员能清楚知道变量的归属；
• 如果不需要层级名称，你可以修改函数里的full_name逻辑，只保留最后一层名称；
• 最后可以用write.csv(structure_table, "数据结构概览.csv")把表格导出成CSV文件，方便分享给非技术同事。

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