Блог

Я использую пакет likert для создания графиков вопросника. Я хотел бы создать такой график, где нейтральные ответы откладываются в сторону, вы знаете, есть ли способ сделать это в R?

Дешевый пример того, как воспроизвести график

 lst <- c("I dislike them a lot",
         "I dislike them",
         "I like them", 
         "I like them a lot",
"Neutrals and Don’t know")
levels(dftest$Bounty)
dftest <-  tibble(Bounty = sample(lst, 100, replace = T),
                  Snickers = sample(lst, 100, replace = T),
                  `Milky Way` = sample(lst, 100, replace = T),
                  Mars = sample(lst, 100, replace = T),
                  `Galaxy Caramel` = sample(lst, 100, replace = T),
                  Twix = sample(lst, 100, replace = T),
                  Galaxy = sample(lst, 100, replace = T),
                  `Maltese Teaser` = sample(lst, 100, replace = T)) %>%
        mutate(across(.fns = ~as.factor(.))) %>%
        mutate(across(.fns = ~ordered(., levels = lst)))
plot_likert(dftest,   cat.neutral = 5,   legend.pos = "all",
            geom.colors = c( "#D57141", "#E4AE8E", "#466484", "#869CB0",
                            "#C8CDD1"))   theme_bw()