Я пытаюсь создать кросс-таблицы. У меня есть фрейм данных, в котором у меня есть несколько вопросов. Я импортирую фрейм данных из файла SPSS с использованием стороннего пакета и пакета expss. Я создаю вопросы с несколькими вариантами ответов, используя функцию mrset. Вот демонстрационный код для этого, чтобы прояснить это.
Banner1 = w %>%
tab_cells(mrset(as.category( temp1,counted_value = "Checked"))) %>%
tab_cols(total(),mrset(as.category( temp2, counted_value = "Checked"))) %>%
tab_stat_cases(total_row_position = "none",label = "")
tab_pivot(Banner1)
Импортируемые данные выглядят так:
Total Q12_1 Q12_2 Q12_3 Q12_4 Q12_5
A B C D E F
Total Cases 803 34 18 14 38 37
Q13_1 64 11 7 8 9 7
Q13_2 12 54 54 43 13 12
Q13_3 67 54 23 21 6 4
Извините за выравнивание здесь ... Так что это импортированный набор данных.
Приступая к проблеме, Как вы можете видеть, этот набор данных имеет метки столбцов в виде номеров вопросов, а не переменных переменных. Для отдельных вопросов все работает нормально. Есть ли какая-либо функция, которую я могу динамически изменять для имен функций mrset? Желаемый результат должен быть примерно таким. Например,
Total Apple Mango Banana Orange Grapes
A B C D E F
Total Cases 803 34 18 14 38 37
Apple 64 11 7 8 9 7
Mango 12 54 54 43 13 12
banana 67 54 23 21 6 4
Любая помощь будет принята с благодарностью.