График, сгенерированный с помощью функции sjp.xtab из пакета sjPlot (R), имеет странные позиции меток значений... Как сделать это правильно?
Я пытался использовать sjp.xtab для создания пропорциональных столбчатых графиков (с перевернутыми координатами), но у меня возникли некоторые проблемы.
Я получаю метки значений в странных местах (а не в середине столбцов с накоплением), и мне также хотелось бы знать, как изменить порядок столбцов, чтобы я мог получить метку в правой части, например,
Вот пример, который я создал, чтобы показать, что происходит:
Я создаю переменную под названием вопрос, которая просто имитирует элемент анкеты с тремя вариантами ответа: b (низкий), m (средний), a (высокий)
question <- c("b", "b", "b", "m", "a", "a", "a", "a","a","a", "a", "m","m","a")
question <- factor(question, levels=c("b","m","a"))
question <- c("b", "b", "b", "m", "a", "a", "a", "a","a","a", "a", "m","m","a")
question <- factor(question, levels=c("b","m","a"))
Затем переменная с именем rowvar, которая является групповой переменной, с тремя возможными группами: mod1, mod2, mod3
rowvar <- c("mod1", "mod1", "mod1","mod1","mod1","mod2","mod2","mod2","mod2","mod2","mod2", "mod3","mod3","mod3")
rowvar <-factor(rowvar, levels=c("mod1","mod2","mod3"))
Там есть кросс-таблицы, это те значения, которые я бы ожидал на графике
prop.table(table(rowvar,question),1)
Но когда я использую sjp.xtab, я получаю метки значений в странных позициях...
library(sjPlot)
sjp.xtab(rowvar,question,margin="row",bar.pos="stack",coord.flip=TRUE)
В результате получается сюжет:
Результирующий сюжет из примера
Я обновил все до последней версии (R, sjPlot, ggplot2...).
Кто-нибудь знает, как это исправить без слишком большого программирования..? Я не программист, я просто социальный психолог, пытающийся построить несколько хорошо выглядящих участков. Извините, если этот пост неадекватен в любом случае.