R中批量导入SAS文件后将标签转为列名的实现方法

你完全可以在unnest()前通过map()对列表中的每个SAS数据集单独处理，直接使用sjlabelled::label_to_colnames()将标签转为列名，haven::as_factor()也能按需加入处理流程，不会影响标签转换操作。

修改后的完整代码 #

library(tidyverse)
library(haven)
library(sjlabelled)

df <- list.files(path = "E:/Cohortdata/Raw cohort/Nationalscreeningcohort",
                 full.names = TRUE,
                 recursive = TRUE,
                 pattern = "\\.sas7bdat$") %>% 
  tibble(file_path = .) %>% 
  mutate(data = map(file_path, ~read_sas(.) %>% 
                      sjlabelled::label_to_colnames() %>% 
                      haven::as_factor())) %>% 
  unnest(data)

关键细节说明 #

• 用map()的匿名函数链式处理每个文件：先通过read_sas()读取SAS数据，接着用label_to_colnames()把变量的SAS标签替换为列名，最后按需用as_factor()将SAS格式的变量转为R因子类型。
• 将原代码中的tbl_df()替换为tibble(file_path = .)，给存储文件路径的列起明确名称，提升代码可读性。
• 把pattern = "*.sas7bdat"改为pattern = "\\.sas7bdat$"，确保只匹配后缀严格为.sas7bdat的文件，避免误匹配其他带该字符串的文件。
• 如果不需要转换因子类型，直接去掉haven::as_factor()这一步即可。

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