在R中使用tbl_summary修改描述统计量名称时add_stat_label报错怎么办？

问题原因 #

1. 语法错误：代码中c("x1", "x2", "x3)")的引号不匹配，多了一个闭合引号在x3后面，导致语法解析失败。
2. 函数调用顺序错误：add_stat_label()是gtsummary包专属函数，必须在as_gt()转换为gt表格对象之前调用，否则无法生效。

修复后的完整代码 #

data %>%
  tbl_summary(
    by = year,
    type = list(c("x1", "x2", "x3", "x4", "x5") ~ 'continuous2'),
    statistic = list(
      c("x1", "x2", "x3") ~ c(
        "{sum}",
        "{median} ({p25} - {p75})",
        "{mean} ({min} - {max})"
      ),
      c("x4", "x5") ~ c(
        "{median} ({p25}, {p75})",
        "{mean} ({min}, {max})"
      ),
      x6 ~ "{p}%"
    )
  ) %>%
  add_stat_label(
    list(
      c("x1", "x2", "x3")  ~ c(
        "Total",
        "Médiane (25% - 75%)",
        "Moyenne (Min - Max)"
      ), 
      c("x4", "x5") ~ c(
        "Médiane (25% - 75%)",
        "Moyenne (Min - Max)"
      )
    )
  ) %>%
  modify_header(label = "**Variables**") %>%
  as_gt() %>%
  tab_header("Table 1") %>%
  tab_options(
    table.font.size = "small",
    data_row.padding = gt::px(1)
  )

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