在dotplot中繪製錯誤條線的垂直末端

Question

我正在使用lattice或Dotplot()使用Hmisc繪製dotplot()。當我使用默認參數，我可以繪製誤差棒不小的垂直結局

--O -

，但我想獲得

| - O-- |

我知道我能得到

| --O - |

當我使用從 latticeExtra plotrix或 segplot() centipede.plot()，但是這些解決方案不給我這麼好的調理選項爲 Dotplot()

。我試圖用plot.line，這對於改變錯誤條線的顏色，寬度等效果很好par.settings玩，但到目前爲止，我一直不成功加入垂直結局：

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的解決方案...

Answer 1

我在過去有同樣的需求，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)))