Создание tbl_continuous с данными о весе с помощью gtsummary

Проблема:

Не могу найти способ создать tbl_continuous взвешенной числовой переменной. Я использую tbl_svysummary для создания таблиц категориальных переменных, но это бесполезно, когда я пытаюсь сделать то же самое с таблицами числовых переменных. Примечание. Я не ищу общее среднее значение моей числовой переменной, но разделяю или группирую категориальную переменную.

Пытаться:

Например, я создал эту таблицу с помощью функции tbl_continuous, которая делает именно то, что я хочу: среднее значение моей числовой переменной, но по уровням моей категориальной переменной. Единственная проблема в том, что я не могу вставить переменную веса в эту функцию.

```{r}
base2 %>% 
  as_label() %>% 
  select(ing_cap, ano, nacional, dominio) %>% 
  tbl_continuous(variable = ing_cap, 
                 by = ano,
                 statistic = list(everything() ~ "{median}"))

```

Кроме того, я создавал взвешенные данные с помощью пакета srvyr следующим образом:

base2 %>% 
  labelled::drop_unused_value_labels() %>% 
  as_label() %>% 
  as_survey_design(weight = fac500a)

Можно добавить к решению.

Запрос:

Создайте такую ​​же таблицу (показанную на изображении), но с переменной веса. Моя переменная веса в моих данных называется fac500a.

Мои данные:

Мои данные можно загрузить из моего репозитория github, и они имеют следующие размеры:

> dim(base2)
[1] 108103     44

https://github.com/aito123/quarto_blog/raw/master/posts/tablas_tesis/base2.sav

(dput вывод длинный)

Мои текущие пакеты:

Я пока использую эти пакеты r: tidyverse, srvyr, gtsummary, sjlabelled, haven

Вывод:

Дайте мне знать, если необходимо предоставить дополнительную информацию.