如何在R中生成类似Stata的变量属性数据字典并导出至Excel？

直接用haven提取Stata原生元数据，结合dplyr/purrr整理，最后用openxlsx导出，完全覆盖你需要的变量名称、数据类型、数值变量标识、变量标签字段：

完整代码 #

# 加载所需包
library(haven)
library(dplyr)
library(purrr)
library(openxlsx)

# 读取Stata数据
df <- read_dta("http://www.stata-press.com/data/r9/auto.dta")

# 生成数据字典
data_dict <- tibble(
  变量名称 = names(df),
  变量标签 = map_chr(df, ~ var_label(.x) %||% "无标签"),
  数据类型 = map_chr(df, typeof),
  数值变量标识 = map_lgl(df, is.numeric) %>% ifelse(., "是", "否")
)

# 导出到Excel
write.xlsx(data_dict, "数据字典.xlsx", rowNames = FALSE)

关键说明 #

• 变量标签：var_label()是haven专门用于提取Stata/SAS/SPSS变量标签的函数，比explore::describe()更精准，没有标签的变量会显示"无标签"。
• 数据类型：typeof()返回R底层数据类型（如integer/double/character），如果需要更贴近Stata的类型表述，可以替换为map_chr(df, class)，会返回haven_labelled等类型标识。
• 数值变量标识：用is.numeric()判断，直接转为"是"/"否"的可读性格式。
• 导出Excel：openxlsx不需要依赖Java，比xlsx包更轻便，导出的表格直接可用。

运行后生成的数据字典.xlsx和Statadescribe输出的元数据结构完全对应，能满足你浏览和存档的需求。

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