R语言summarytools包freq命令无法显示变量标签求助

针对summarytools的修复方案 #

1. 保留变量属性调用freq #

直接提取df_work$eseg可能丢失标签属性，改用对数据框指定变量名的方式执行命令：

freq(df_work, vars = "eseg", display.labels = TRUE)

如果变量标签是通过haven包的labelled类存储的，这种方式通常能正确识别并显示标签。

2. 手动指定标签参数 #

先确认变量的标签是否存在：

# 查看变量的标签属性
attr(df_work$eseg, "labels")

如果输出显示数字与标签的键值对，直接在freq中手动指定labels参数：

freq(df_work$eseg, labels = attr(df_work$eseg, "labels"))

3. 转换为因子变量 #

如果变量是带标签的数值型，转成因子后freq会自动显示水平名称：

# 基于标签生成因子
df_work$eseg_fac <- factor(
  df_work$eseg,
  levels = as.integer(names(attr(df_work$eseg, "labels"))),
  labels = attr(df_work$eseg, "labels")
)
# 对因子运行freq
freq(df_work$eseg_fac)

其他生成带标签表格的替代方案 #

1. 使用gtsummary包 #

对带标签变量支持友好，输出格式美观：

library(gtsummary)
df_work %>%
  select(eseg) %>%
  tbl_summary(type = list(eseg ~ "categorical"))

2. 使用tableone包 #

适合生成基线统计表格，自动识别变量标签：

library(tableone)
CreateTableOne(vars = "eseg", data = df_work, factorVars = "eseg")

3. Base R + knitr（适配markdown输出） #

快速生成格式化频数表：

# 生成基础频数表
eseg_table <- table(df_work$eseg, dnn = "社会经济地位")
# 替换行名为对应标签
rownames(eseg_table) <- attr(df_work$eseg, "labels")[rownames(eseg_table)]
# 输出格式化表格
knitr::kable(eseg_table, caption = "社会经济地位频数分布")

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