r - 调整网格中轴刻度之间的间距

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)))