Отрегулируйте расстояние между галочками оси в решетке

Question

Я создал простой Dotplot() используя эти данные:

d <- data.frame(emot=rep(c("happy","angry"),each=2), 
           exp=rep(c("exp","non-exp"),2), accuracy=c(0.477,0.587,0.659,0.736), 
           Lo=c(0.4508,0.564,0.641,0.719), Hi=c(0.504,0.611,0.677,0.753))

и код ниже:

library(Hmisc)
Dotplot(emot ~ Cbind(accuracy, Lo, Hi), groups=exp, data=d, 
        pch=c(1,16), aspect = "xy", par.settings = list(dot.line=list(col=0)))

Что я хочу сделать, так это УМЕНЬШИТЬ расстояние между галочками по оси Y и также уменьшать расстояние между элементами графика, чтобы горизонтальные линии счастливых / злых ошибок были ближе друг к другу. Я знаю, что мог бы достичь этого, играя с scales=list(...) параметры (пока не знаю, как это сделать), но мне придется снова определять метки и т. д. Есть ли более быстрый способ сделать это? Кажется, что такое простое решение, но я застрял.

Answer 1

Несмотря на тот факт, что Hmisc::Dotplot использует решетку, простое добавление аргумента ylim, кажется, помогает. Вы можете вычислить масштаб по умолчанию, так как эти два значения были факторами с базовыми значениями 1/2:

Dotplot(emot ~ Cbind(accuracy, Lo, Hi), groups=exp, data=d, ylim=c(0,3),
         pch=c(1,16), aspect = "xy", par.settings = list(dot.line=list(col=0)))