Фигуры Ликерта из пакета HH фантастические; Тем не менее, у меня много проблем с выводом данных, как я хочу (возможно, из-за количества сдвига элементов оси Y). В частности, я не могу выровнять текст значения y («утверждения /« вопрос ») влево - перенесенная вторая строка выровнена вправо.
Вот пример кода (обратите внимание, что мои реальные данные имеют 4 подтаблицы, а не 2, поэтому намного длиннее):
likert(Question ~ . | Subtable, data=likert_data.df,
positive.order=TRUE,
as.percent = TRUE,
par.strip.text=list(cex=1.0),
ylab=NULL,
box.ratio=2,
box.width=0.8,
xlim=c(-100,100),
scales=list(x=list(at=seq(-100,100,50),
labels=c(seq(100,0,-50),seq(50,100,50))),
y=list(relation="free",cex=0.7)),
layout=c(1,2))
Что я пробовал:
Я уже обернул метки значений оси y («операторы»), используя stringr: likert_data.df$Question<-str_wrap(likert_data.df$Question, width = 40, collapse="\n"), но collapse="\n" возвращается как неиспользуемый аргумент. Мне также пришлось уменьшить размер шрифта, чтобы метки не перекрывались.