Rysowanie pionowego zakończenia linii paska błędów w dotplot

Question

Rysuję dotplot() przy użyciu lattice lub Dotplot() przy użyciu Hmisc. Kiedy używać domyślnych parametrów, mogę wykreślić słupki błędów bez małych końcówek pionowych

O-

ale chciałbym dostać

| - o-- |

wiem, że mogę dostać

| O- |

kiedy używam centipede.plot() z plotrix lub segplot() od latticeExtra, ale te rozwiązania nie dają mi takie ładne opcje klimatyzacji jak Dotplot(). Starałem się grać z par.settings z plot.line, który działa dobrze na zmianę Error Line bar kolor, szerokość, itd, ale do tej pory byłem przegrała dodanie pionowych zakończeń:

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

Proszę, nie dostarczaj mi rozwiązań, które używają ggplot2 ...

Answer 1

W przeszłości miałem taką samą potrzebę z barchart() zamiast z Dotplot().

Moje rozwiązanie polegało wówczas na utworzeniu spersonalizowanej funkcji panelu, która: (1) najpierw wykonuje oryginalną funkcję panelu; i (2) następnie używa panel.arrows(), aby dodać pasek błędów (za pomocą strzałki z dwoma głowicami, w której krawędzie głowicy tworzą kąt 90 stopni z wałem).

Oto, co to może wyglądać z 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)))