TableOne中showAllLevels参数导致输出变量标签异常的解决方法

问题根源 #

tableone包在生成表格并转为数据框时，会自动将变量名中的空格、%等特殊字符替换为点（.）——这是因为R的列名/行名不允许包含这类特殊字符，但控制台显示正常是因为print.TableOne方法做了格式美化，实际底层数据框的名称已经被标准化。

分步解决方案 #

1. 准备数据与创建TableOne对象 #

加载所需包，创建TableOne时设置noSpaces=FALSE参数保留空格（%仍会被替换，后续手动恢复）：

library(tableone)
library(labelled)
library(dplyr)
library(stringr)

# 模拟含特殊字符变量名的数据集（替换为你的实际数据）
set.seed(123)
df <- tibble(
  `高血压(%)` = factor(sample(c("是", "否"), 100, replace = TRUE)),
  `空腹血糖 异常` = factor(sample(c("是", "否"), 100, replace = TRUE)),
  group = factor(sample(c("对照组", "干预组"), 100, replace = TRUE))
)

# 创建TableOne，开启showAllLevels并保留空格
tab1 <- CreateTableOne(
  vars = c("高血压(%)", "空腹血糖 异常"),
  strata = "group",
  data = df,
  showAllLevels = TRUE,
  factorVars = c("高血压(%)", "空腹血糖 异常"),
  noSpaces = FALSE  # 关键参数：避免空格被自动替换为点
)

2. 转换为数据框并修复名称 #

将TableOne转为数据框后，手动替换行名/列名中的点，恢复原始特殊字符：

# 转为数据框（printToggle=FALSE返回数据框而非直接打印）
tab1_df <- print(tab1, printToggle = FALSE, noSpaces = FALSE)

# 修复行名：还原空格和%
rownames(tab1_df) <- rownames(tab1_df) %>%
  str_replace_all("\\.\\.", "(%)") %>%  # 把替换%后的两个点还原为(%)
  str_replace_all("\\.", " ")           # 把剩余的点还原为空格

# 若列名（分组名）也被替换，同理修复
colnames(tab1_df) <- colnames(tab1_df) %>%
  str_replace_all("\\.", " ")

3. 导出到CSV或Word #

导出CSV

直接用write.csv，设置编码避免中文乱码：

write.csv(tab1_df, "基线特征表.csv", row.names = TRUE, fileEncoding = "UTF-8")

导出Word

使用flextable包生成格式美观的Word表格：

library(flextable)

# 转换为flextable并美化
tab1_ft <- flextable(tab1_df) %>%
  set_caption("基线特征表") %>%
  autofit()  # 自动调整列宽

# 保存为Word
save_as_docx(tab1_ft, path = "基线特征表.docx")

4. 批量处理30个是/否因子变量 #

写自动化函数循环处理，避免重复代码：

process_export_table <- function(var_name, strata_var, data, output_dir = "./") {
  # 创建单个变量的TableOne
  tab <- CreateTableOne(
    vars = var_name,
    strata = strata_var,
    data = data,
    showAllLevels = TRUE,
    factorVars = var_name,
    noSpaces = FALSE
  )
  
  # 转为数据框并修复名称
  tab_df <- print(tab, printToggle = FALSE, noSpaces = FALSE)
  rownames(tab_df) <- rownames(tab_df) %>%
    str_replace_all("\\.\\.", "(%)") %>%
    str_replace_all("\\.", " ")
  colnames(tab_df) <- str_replace_all(colnames(tab_df), "\\.", " ")
  
  # 导出CSV
  csv_path <- file.path(output_dir, paste0(var_name, ".csv"))
  write.csv(tab_df, csv_path, row.names = TRUE, fileEncoding = "UTF-8")
  
  # 导出Word
  doc_path <- file.path(output_dir, paste0(var_name, ".docx"))
  tab_ft <- flextable(tab_df) %>%
    set_caption(paste0(var_name, "分布表")) %>%
    autofit()
  save_as_docx(tab_ft, path = doc_path)
  
  message(paste("已导出：", var_name))
}

# 定义30个变量的名称列表（替换为你的实际变量名）
var_list <- c("高血压(%)", "空腹血糖 异常", "高血脂(%)", "...")  # 补充剩余变量

# 循环处理所有变量
for(var in var_list) {
  process_export_table(var, strata_var = "group", data = df)
}

注意事项 #

• R的对象名不允许包含%和空格，所以数据框的原始列名其实是被标准化的，我们修复的是导出文件中的显示名称，不影响数据处理。
• 若使用labelled包设置了变量标签，可将标签替换到行名中，让表格更易读：

  # 获取变量标签
  var_label_text <- var_label(df)[[var_name]]
  # 修改行名为"标签 + 水平"
  rownames(tab_df) <- paste(var_label_text, str_split(rownames(tab_df), " ")[[1]][2])
  

内容的提问来源于stack exchange，提问作者Tom Küffer