Huxtable自动删除单元格中的0（如H01变H1），如何保留0？

问题描述 #

Huxtable会自动移除单元格字符串中的前导零（例如将"H01"转为"H1"），即使使用as.character()转换后赋值，结果仍然丢失前导零。示例代码及现象如下：

library(gtsummary)
library(huxtable)
df1 <- data.frame("a" = c(1:5), "b" = c(1:5))
df1 %>% 
  tbl_summary() %>%
  as_hux_table() -> df1_hux
df1_hux[1, 2] <- "A01"
print(df1_hux[1, 2])

输出结果：

A1         
                                  ───────────────────

Column names: stat_0

解决方案 #

核心原因是Huxtable默认会尝试解析单元格内容为数值类型，导致前导零被自动去除。通过强制设置单元格格式为纯文本即可解决：

1. 单独设置目标单元格格式

赋值后，使用set_cell_properties()指定目标单元格的format参数为"text"：

df1_hux[1, 2] <- "A01"
# 设置单元格为纯文本格式
df1_hux <- set_cell_properties(df1_hux, row = 1, col = 2, format = "text")

print(df1_hux[1, 2])

此时输出会保留前导零：

A01         
                                  ───────────────────

Column names: stat_0

2. 批量设置整列格式

如果该列有多个需要保留前导零的内容，可直接设置整列格式：

# 先设置整列为文本格式
df1_hux <- set_cell_properties(df1_hux, col = 2, format = "text")
# 再赋值即可保留前导零
df1_hux[1, 2] <- "A01"
df1_hux[2, 2] <- "B02"

原理说明 #

format = "text"会强制Huxtable以纯文本形式渲染单元格内容，跳过自动类型推断和数值解析步骤，从而完整保留字符串中的前导零。

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