У меня есть один фактор с 5 уровнями (фактор) и одной порядковой переменной (1-7, likert), который я пытаюсь построить с необработанными данными. Я бы предпочел облака точек с прозрачными гистограммами, но я открыт для любого элегантного решения. Я хочу, чтобы ось х изменялась от 0 до 7, но допускаю только дрожание от 1 до 7, поскольку это диапазон в моих исходных данных.
Я уже пытался установить пределы и затем использовать oob = scale :: censor или уменьшить высоту джиттера, но ни одно решение не кажется хорошим.
set.seed(1234)
likert <- sample(1:7, size=1000, replace=TRUE)
factor <- sample(1:5, size=1000, replace=TRUE)
Dat <- data.frame(factor=factor(factor),likert=likert)
Dat %>%
drop_na(factor)%>%
ggbarplot(x = "factor", y = "likert", add = "mean_ci",
add.params=list(color = "black"), fill=NA, color="factor")+
geom_jitter(aes(col=factor),position=position_jitter(width=.15,h=.25),
alpha=0.4)+
coord_cartesian(ylim=c(1,7)) +
scale_y_continuous(breaks=c(1:7), limits=c(1,7), expand=c(0,0), oob=scales::squish)