变量标签中的ADD计数gt_summary

Question

"n = {n}"

添加到标签列表中，我尝试了这两个我传递给tbl_summary的标签列表，并且使用了

add_stat_label (label = "n = {n}")

，但是有了这些，占位符{n}并未解释为这样的解释，而最后的表不在我想要的。

我知道我可以添加一个自定义统计列，我宁愿不增加col编号

在gt_summary中是否有内置功能可以实现这一目标？

a（dys）功能示例：

library(tidyverse)
library(gtsummary)
library(gt)

database = data.frame(
  INDIV_AGE = rnorm(100, mean = 50, sd = 4),
  INDIV_GENDER = rbinom(100, size=1, prob = 0.6),
  INDIV_ETHNICS = sample(c("North America", "Western Europe", "Africa", "Eastern Europe", "Asia", "Other"), size = 100, replace = T, prob = c(0.3, 0.2, 0.4, 0.02, 0.01, 0.07)),
  INDIV_ECOGRP = sample(c(1,2,3,4), size = 100, replace = T, prob = c(0.6, 0.1, 0.2, 0.1)),
  ENV_POLLEVEL = rpois(100, lambda = 4), 
  ENV_FLOODPROFILE = sample(c("Low", "Intermediate", "High", "Extreme"), size = 100, replace = T, prob = c(0.1, 0.65, 0.2, 0.05))
)
database[] <- lapply(database, function(x) { x[sample(seq_along(x), 0.1 * length(x))] <- NA; x })



a = database |> 
  tbl_summary(
    include = everything(),
    missing = "always",
    missing_text = "Missing data",
    missing_stat = "{N_miss} ({p_miss}%)",
    type = INDIV_AGE ~ "continuous",
    statistic = list(
      all_continuous() ~ "{median} [{p25}-{p75}]",
      all_categorical() ~ "{n} ({p}%)"
      ),
    by = INDIV_GENDER
  ) |> 
  modify_header(
    label = "",
    stat_2 = "**Yes**\nN={n}",
    stat_1 = "**No**\nN={n}") |>
  modify_spanning_header(all_stat_cols()~"**Gender**") |>
  add_p() |> 
  bold_p() |>
  add_stat_label(
    label = "n = {n}"
  )

print(a)  

它产生了这样的东西：

电流输出

，但是我想要这样的东西，相应的数字代替了

{n}指望输出

在此示例代码中，Na是在总计的10％中随机生成的，因此并不是很有趣，但是在实际数据中，Na在变量之间有所不同。

谢谢你！

sigil

我相信这就是你想要的

第一个

add_n

Answer 1

用

label

，如果！=na

mutate。 Remove列再次
• n
giving