пакет expss: печать меток для нескольких ответов в том же формате, что и метки значений

Question

Кто-нибудь знает способ напечатать в таблицах, сгенерированных через пакет expss, метки строк так же, как метки значений? Этот вопрос связан с предыдущим сообщением, в котором команда split_columns предлагается в качестве решения. Хотя я ищу способ создать настольную книгу с чистым и стандартным внешним видом и экспортом, чтобы превзойти ее. Я попытался преобразовать в кодировку категории, которая дает тот же результат, что и дихотомическое кодирование.

Tx, micha

Answer 1

Вам необходимо использовать 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 |