REDCap导出变量转R因子：字符导出与批量转换技术问询

一、直接将REDCap分类/是与否变量导出为字符型 #

stringsAsFactors = FALSE无效的核心原因是：REDCap默认导出的是变量的数字编码（如0/1、数字分类码），而非标签文本，因此即使关闭因子转换，读取后仍是数字类型。你可以通过两种方式直接获取字符型数据：

方式1：REDCap导出时直接选择标签文本 #

在REDCap的导出界面，找到「Format for data export」选项，选择Labels而非Codes。导出后的CSV文件会直接包含标签文本（如"Female"/"Male"、"Checked"/"Unchecked"），读取后自然为字符型。

方式2：用REDCapR包直接读取带标签的数据 #

借助REDCapR包从API拉取数据时，可指定直接返回标签文本：

library(REDCapR)
dataset <- redcap_read(
  redcap_uri = "你的REDCap项目URL",
  token = "你的API令牌",
  export_labels = TRUE  # 关键参数，直接导出标签文本
)$data

二、批量将多个变量转换为带相同标签的因子 #

针对示例中indic1、indic2这类有统一标签规则的变量，推荐两种高效实现方式：

方法1：Base R批量处理 #

# 定义需要转换的变量列表
target_vars <- c("indic1", "indic2")

# 批量转换为因子并设置标签
dataset[target_vars] <- lapply(dataset[target_vars], function(x) {
  factor(x, levels = c("0", "1"), labels = c("Unchecked", "Checked"))
})

# 批量设置变量标签（按需）
for(var in target_vars) {
  label(dataset[[var]]) <- paste("Indication", gsub("indic", "", var))
}

方法2：dplyr简洁实现（Tidyverse风格） #

library(dplyr)
library(labelled)

target_vars <- c("indic1", "indic2")

# 批量转换因子
dataset <- dataset %>%
  mutate(across(all_of(target_vars), 
                ~factor(., levels = c("0", "1"), labels = c("Unchecked", "Checked"))))

# 批量设置变量标签（进阶写法，适配变量名规律）
label_mapping <- setNames(
  paste("Indication", seq_along(target_vars)),
  target_vars
)
dataset <- dataset %>% set_variable_labels(!!!label_mapping)

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