如何从R提取列（变量）标签并与数据导出至CSV/Excel？

看起来你遇到的问题是因为用错了提取标签的方式——你的数据是用haven包导入的（从haven_labelled类型可以看出来），这类数据的变量标签是存在每一列的属性里，而不是整个数据集的label属性，所以直接用attr(dataset, "label")会返回NULL。

下面是完整的解决方案，分步骤帮你生成带标签的CSV/xlsx文件：

第一步：提取所有变量的标签 #

我们需要逐个读取每一列的label属性，对于没有标签的列可以用空字符串填充：

# 如果未安装purrr包请先执行：install.packages("purrr")
library(purrr)

# 提取每个列的标签，无标签则返回空字符串
var_labels <- sapply(dataset, function(col) {
  attr(col, "label") %||% ""
})

第二步：导出为目标格式 #

根据你需要的CSV或XLSX格式，选择对应的方法：

导出为CSV格式

因为CSV是纯文本格式，需要统一数据类型避免冲突，我们先把原数据转成字符型：

# 将原数据集转换为字符型
dataset_char <- as.data.frame(lapply(dataset, as.character), stringsAsFactors = FALSE)

# 创建标签行的数据框
label_row <- as.data.frame(t(var_labels), stringsAsFactors = FALSE)

# 合并标签行与原数据，保持原变量名为列名
final_data <- rbind(label_row, dataset_char)
colnames(final_data) <- colnames(dataset)

# 导出CSV文件（不包含行名）
write.csv(final_data, "dataset_with_labels.csv", row.names = FALSE)

导出为XLSX格式（推荐，保留原始数据类型）

如果想保留数据原本的类型（比如数值型、字符型区分），使用openxlsx包可以更灵活地控制内容排版：

# 安装并加载openxlsx包
install.packages("openxlsx")
library(openxlsx)

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "Full Data")

# 1. 写入第一行：变量名（作为列名）
writeData(wb, "Full Data", colnames(dataset), startRow = 1, colNames = FALSE)

# 2. 写入第二行：变量标签
writeData(wb, "Full Data", var_labels, startRow = 2, colNames = FALSE)

# 3. 写入第三行及以后：原始观测数据
writeData(wb, "Full Data", dataset, startRow = 3, colNames = FALSE)

# 保存工作簿（覆盖已有文件）
saveWorkbook(wb, "dataset_with_labels.xlsx", overwrite = TRUE)

生成的文件会完全符合你的需求：第一行是变量名（比如qqhhtype），第二行是对应的标签（比如DV: Household type），后续行是所有观测值。

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