r - 在点图中绘制误差线的垂直末端

我正在使用dotplot()绘制lattice或使用Dotplot()绘制Hmisc。当我使用默认参数时，可以绘制没有小的垂直结尾的误差线


--o--


但我想得到


| --o-- |


我知道我能得到


| --o-- |


当我使用plotrix中的centipede.plot()或latticeExtra中的segplot()时，但是这些解决方案没有给我提供Dotplot()这样的很好的条件选项。我尝试使用par.settings的plot.line，它对于更改误差线的颜色，宽度等非常有效，但是到目前为止，我在添加垂直结尾方面一直没有成功：

require(Hmisc)
mean = c(1:5)
lo = mean-0.2
up = mean+0.2
d = data.frame (name = c("a","b","c","d","e"), mean, lo, up)
Dotplot(name ~ Cbind(mean,lo,up),data=d,ylab="",xlab="",col=1,cex=1,
        par.settings = list(plot.line=list(col=1),
                       layout.heights=list(bottom.padding=20,top.padding=20)))

请不要给我使用ggplot2的解决方案...

最佳答案

过去，我有同样的需求，使用barchart()而不是Dotplot()。

然后，我的解决方案是创建一个自定义面板功能：（1）首先执行原始面板功能； （2）然后使用panel.arrows()添加误差线（使用双向箭头，其中箭头的边缘与轴形成90度角）。

这是Dotplot()的样子：

# Create the customized panel function
mypanel.Dotplot <- function(x, y, ...) {
    panel.Dotplot(x,y,...)
        tips <- attr(x, "other")
        panel.arrows(x0 = tips[,1], y0 = y,
                     x1 = tips[,2], y1 = y,
                     length = 0.15, unit = "native",
                     angle = 90, code = 3)
}

# Use almost the same call as before, replacing the default panel function
# with your customized function.
Dotplot(name ~ Cbind(mean,lo,up),data=d,ylab="",xlab="",col=1,cex=1,
        panel = mypanel.Dotplot,
        par.settings = list(plot.line=list(col=1),
                       layout.heights=list(bottom.padding=20,top.padding=20)))