Кто-нибудь знает, как печатать в таблицах, созданных с помощью пакета expss, метки строк так же, как метки значений? Этот вопрос связан с предыдущим постом, в котором в качестве решения предлагается команда split_columns. Однако я ищу способ создать настольную книгу с чистым и стандартным внешним видом, чтобы экспортировать ее в превосходное качество. Я попытался преобразовать в кодировку категорий, которая дает тот же результат, что и кодирование дихотомии.
Тх, миха
Вам нужно использовать mdset для набора дихотомии или mrset для категорий. Пример с mdset:
library(expss)
demo = text_to_columns("
dummy1 dummy2 dummy3 survey_weight
1 0 0 1.5
1 1 0 1.5
1 1 1 .5
0 1 1 1.5
1 1 1 .5
0 0 1 .5
")
demo %>%
tab_cells(mdset(dummy1 %to% dummy3)) %>% # 'mdset' designate that with have multiple dichotomy set
tab_weight(survey_weight) %>% # weight
tab_stat_cpct() %>% # statistic
tab_pivot()
# | | #Total |
# | ------------ | ------ |
# | dummy1 | 66.7 |
# | dummy2 | 66.7 |
# | dummy3 | 50.0 |
# | #Total cases | 6.0 |
