如何将首行是变量名、次行是变量标签的Excel文件读入R

可以用readxl读取Excel文件，搭配labelled包来给变量添加标签，步骤如下：

1. 安装并加载所需包 #

install.packages(c("readxl", "labelled"))
library(readxl)
library(labelled)

2. 读取表头和数据 #

• 先读取前两行，分别提取变量名（第一行）和变量标签（第二行）
• 再读取从第三行开始的实际数据，用第一行作为列名

# 读取前两行的表头信息
header_info <- read_excel("你的文件路径.xlsx", n_max = 2, col_names = FALSE)
var_names <- as.character(header_info[1, ])  # 第一行作为变量名
var_labels <- as.character(header_info[2, ]) # 第二行作为变量标签

# 读取实际数据，跳过前两行，用var_names作为列名
data_df <- read_excel("你的文件路径.xlsx", skip = 2, col_names = var_names)

3. 给变量添加标签 #

用var_label()函数把对应标签绑定到变量上：

var_label(data_df) <- setNames(var_labels, var_names)

验证效果 #

执行var_label(data_df)就能查看所有变量的标签，也可以直接查看单个变量的标签，比如var_label(data_df$age)。如果读取后数值型变量变成了字符型，可执行type.convert(data_df, as.is = TRUE)自动转换数据类型。

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