在gtsummary tbl_summary中省略变量标签

mftmpeh8 于 2023-05-11 发布在其他

关注(0)|答案(1)|浏览(138)

使用gtsummary 1.7.0版，我制作了一个包含连续变量的一些统计数据的表：

library(gtsummary)
library(dplyr)
dat <- data.frame(x = 1:100, y = c(rep("A", 50), rep("B", 50)))
dat %>%
  tbl_summary(
    by = y,
    type = x ~ "continuous2",
    statistic = x ~ c("{mean}", "{min}", "{max}"),
    label = x ~ "this row should not exist"
  ) %>%
  modify_caption(caption = "Some basic statistics for variable x")

因为我只有一个变量，并且变量的描述将在表标题中，所以我想省略变量标签。将“this row should not exist”更改为NULL（显示“x”）或“”（显示空行）并不能让我达到目的，因为我想去掉整行。有没有办法做到这一点？

来源：https://stackoverflow.com/questions/76209786/omit-variable-label-in-gtsummary-tbl-summary

1条答案

按热度按时间

vh0rcniy1#

您可以使用modify_table_body()函数来标题行。下面的例子！

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.7.1'

dat <- data.frame(x = 1:100, y = c(rep("A", 50), rep("B", 50)))
dat |>
  tbl_summary(
    by = y,
    type = x ~ "continuous2",
    statistic = x ~ c("{mean}", "{min}", "{max}")
  ) |>
  # remove header row
  modify_table_body(
    ~ .x |> 
      dplyr::filter(!(variable %in% "x" & row_type %in% "label"))
  ) |> 
  as_kable() # convert to kable to display on stackoverflow

特性	A，N = 50	B，N = 50
平均值	二十六	七十六
最小值	1	五十一
最大值	五十	一百

创建于2023-05-09，使用reprex v2.0.2

赞(0）回复(0）举报 2023-05-11

我来回答

在gtsummary tbl_summary中省略变量标签

1条答案

相关问题

热门标签

最新问答