Как установить "na.rm = TRUE" в синтаксисе R glue

Question

Я использую gtsummary::tbl_summary для создания сводной таблицы статистики.

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

В cv функция от goevegбиблиотека. В таблице отчета значение cv равно 0. Я полагаю, это из-за отсутствия значения в моих данных. Итак, мой вопрос, как написатьcv(x, na.rm = TRUE) в синтаксисе клея.

Изменить: оказывается, что проблема связана с проблемой точности, но не с настройкой na.rm=TRUE. Таким образом, решение состоит в том, чтобы установить для cv цифры 2 или 3. (см. отмеченный ответ и комментарии к нему)

Answer 1

Это большой вопрос.

Одна из сложных вещей tbl_summary()пытается угадать, до скольких цифр округлить статистику. Этот пример сложен, потому что вам часто нужно, чтобы среднее значение и CV отображались с разными уровнями точности, поскольку они не в одном масштабе. В приведенном ниже примереtbl_summary()предположил, что возраст должен быть округлен до ближайшего целого числа. Это разумное предположение для среднего и стандартного отклонения, но мы должны указать ему, чтобы отображалось больше цифр для 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))
  )

Надеюсь, что это ответ на ваш вопрос! Удачного кодирования!