如何仅移除gtsummary表格中某一行的千位分隔符？

要单独移除Year行的千位分隔符，无需全局修改格式，用gtsummary的modify_fmt_fun()函数即可实现，具体代码如下：

test1 <- data.frame(
  Country = c("Italy","Italy","Italy",
              "Netherlands","Netherlands","Netherlands"),
  Duration = c(47L, 28L, 23L, 37L, 16L, 29L),
  Year = c(1959, 1961, 1969, 1970, 1956, 1975)
)

# 生成表格并单独调整Year的格式
tab1 <- test1 %>%
  tbl_summary(
    by = Country,
    type = list(c(Duration, Year) ~ "continuous"),
    statistic = list(all_continuous() ~ "{mean} ({sd})"),
    digits = list(all_continuous() ~ 1, all_categorical()~ 0)
  ) %>% 
  add_overall() %>%
  # 仅对Year变量禁用千位分隔符
  modify_fmt_fun(
    variables = Year,
    fmt_fun = function(x) fmt_number(x, big.mark = "")
  )

# 查看处理后的表格
tab1

关键说明 #

• modify_fmt_fun()是gtsummary专门用于调整特定变量格式的函数，通过variables = Year精准定位目标变量
• fmt_number(x, big.mark = "")将千位分隔符设置为空，直接移除Year数值中的逗号，其他变量的格式不受影响

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