R语言tabular函数批量处理、转置、去重及导出Excel问题咨询

问题2：转置表格，让列是Female/Male，每个问题对应均值/标准差两行 #

tabular生成的Table对象结构比较特殊，直接用t()或者dcast容易出问题，建议先把它转成标准数据框，再用tidyr重塑结构：

步骤1：生成带清晰列名的tabular表 #

先重新生成tabular时，给均值和标准差加上明确的后缀（比如_mean/_sd），方便后续拆分：

stats_exprs <- lapply(my_questions, function(q) {
  bquote(mean(.(sym(q)), na.rm = TRUE) * Heading(paste0(.(q), "_mean")) + 
         sd(.(sym(q)), na.rm = TRUE) * Heading(paste0(.(q), "_sd")))
})

formula_str <- paste("Sex ~", paste(sapply(stats_exprs, deparse), collapse = " + "))
tab <- tabular(as.formula(formula_str), data = df)

步骤2：转成数据框并重塑 #

library(tidyr)

# 把tabular转为数据框，保留所有信息
tab_df <- as.data.frame(tab, row.names = NULL, stringsAsFactors = FALSE)

# 从宽格式转长格式，拆分问题名和统计类型
long_df <- pivot_longer(
  tab_df, 
  cols = -Sex, 
  names_to = c("Question", "Stat"), 
  names_sep = "_" # 按下划线拆分列名
)

# 再转成目标宽格式：列是Female/Male，行是问题+统计量
final_table <- pivot_wider(
  long_df, 
  names_from = Sex, 
  values_from = value
)

# 按问题和统计量排序，让输出更整洁
final_table <- final_table[order(final_table$Question, final_table$Stat), ]

现在final_table就是你要的结构：每行对应一个问题的均值/标准差，列是性别分组。

问题3：大型数据集报错「Duplicate values: Sex and Q1_Daily」 #

这个错误一般是tables包在处理重复分组-变量组合时的冲突，或者数据本身有问题，试试以下几个解决方案：

方案1：检查并移除重复行 #

大型数据集很容易出现重复观测，先去重再试：

# 检查重复行数量
sum(duplicated(df))

# 移除重复行
df_clean <- df[!duplicated(df), ]

# 重新生成表格
tab <- tabular(final_formula, data = df_clean)

方案2：明确指定na.rm=TRUE #

如果数据中有缺失值，统计函数返回NA可能触发tables的重复值检测，强制加入na.rm=TRUE（就是问题1中代码里的参数），确保每个统计项返回唯一值。

方案3：换用dplyr替代tables包 #

tables包对大型数据集的兼容性不如dplyr，用dplyr生成汇总表更稳定：

library(dplyr)

summary_df <- df %>%
  group_by(Sex) %>%
  # 对所有问题计算均值和标准差
  summarize(across(all_of(my_questions), 
                   list(mean = ~mean(., na.rm=TRUE), 
                        sd = ~sd(., na.rm=TRUE)))) %>%
  # 后续重塑步骤和问题2一样
  pivot_longer(cols = -Sex, names_to = c("Question", "Stat"), names_sep = "_") %>%
  pivot_wider(names_from = Sex, values_from = value)

问题4：将tabular输出写入Excel #

直接用as.data.frame(tab)经常会丢失格式，建议先把tabular转成结构化的标准数据框（比如问题2中生成的final_table），再用openxlsx写入：

library(openxlsx)

# 写入结构化数据框（推荐，Excel中可编辑）
write.xlsx(
  final_table, 
  file = "问卷性别汇总.xlsx", 
  sheetName = "性别对比",
  rowNames = FALSE # 不需要行名
)

# 如果一定要保留tabular的原始格式（纯文本表格）
tab_text <- capture.output(print(tab))
tab_text_df <- data.frame(内容 = tab_text, stringsAsFactors = FALSE)
write.xlsx(tab_text_df, file = "原始tabular输出.xlsx", sheetName = "原始表格")

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