如何在 R 胶水语法中设置 "na.rm = TRUE "

Question

我正在使用 gtsummary::tbl_summary 创建统计摘要 table。

stats_summary_table <-
  dat_wide%>%
  tbl_summary(by = mss_plate_id, 
              missing = "no",
              statistic = list(all_continuous() ~ " {mean} ± {sd}   {cv}"  ))

cv 函数来自 goeveg 库。报告 table 显示 cv 值为 0。我想这是因为我的数据中缺少值。所以，我的问题是如何在粘合语法中编写 cv(x, na.rm = TRUE)。

编辑：原来挑战是由于精度问题而不是设置na.rm=TRUE。所以解决方案是将 cv 的数字设置为 2 或 3。（查看标记的答案及其评论）

Answer 1

这是一个很好的问题。

tbl_summary() 尝试做的一件困难的事情是猜测将统计数据四舍五入到多少位数。这个例子很棘手，因为您通常希望均值和 CV 以不同的精度级别显示，因为它们不在同一尺度上。在下面的示例中，tbl_summary() 猜测年龄应该四舍五入到最接近的整数。对于均值和 SD，这是一个合理的假设，但我们需要告诉它为 CV 显示更多数字。为此，我们使用 tbl_summary(digits=) 参数。显示了三个年龄统计数据（均值、标准差和 cv），我们将传递一个长度为三的向量，指示每个统计数据要四舍五入到多少位数。

library(goeveg)
library(gtsummary)

trial %>%
  select(age, marker) %>%
  tbl_summary(
    statistic = list(all_continuous() ~ " {mean} ± {sd} [{cv}]"),
    digits = list(age ~ c(0, 0, 2))
  )

希望这能回答您的问题！编码愉快！

如何在 R 胶水语法中设置 "na.rm = TRUE "

How to set "na.rm = TRUE " within R glue syntax

r

gtsummary