Я не на 100% понимаю, о чем вы спрашиваете. Я предполагаю, что вы хотите суммировать данные по возрасту и возрасту (разделить на медиану в приведенном ниже примере)?
Сначала вы захотите создать категориальную переменную возраста.
library(gtsummary)
library(tidyverse)
df_age_example <-
trial %>%
mutate(
# create a categorical age variable split at the median
age2 = ifelse(
age >= median(.$age, na.rm = TRUE),
"Age Above or at Median",
"Age Below Median"
)
) %>%
# keep variables to be summarized
select(age2, marker, grade)
Затем вы захотите передать этот фрейм данных в tbl_summary()
для суммирования данных.
tbl_summary(data= df_age_example, by = age2)
Это приведет к приведенной ниже таблице.
Надеюсь, это поможет. Удачного кодирования!