Disegna la fine verticale della riga della barra di errore in dotplot

Question

Sto disegnando dotplot() utilizzando lattice o Dotplot() utilizzando Hmisc. Quando uso i parametri di default, posso tracciare le barre di errore di piccole terminazioni verticali

--o--

ma vorrei ottenere

| - O-- |

so che posso ottenere

| --o-- |

quando uso centipede.plot() da plotrix o segplot() da latticeExtra, ma queste soluzioni non mi danno queste opzioni piacevoli condizionata Dotplot(). Stavo cercando di giocare con par.settings di plot.line, che funziona bene per cambiare errore di colore linea di bar, larghezza, ecc, ma finora ho avuto successo in aggiunta terminazioni verticali:

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

Per favore, non darmi soluzioni che usano ggplot2 ...

Answer 1

Ho avuto questo stesso bisogno in passato, con barchart() anziché con Dotplot().

La mia soluzione era quindi quella di creare una funzione di pannello personalizzata che: (1) prima eseguisse la funzione del pannello originale; e (2) quindi usa panel.arrows() per aggiungere la barra di errore (usando una freccia a due punte, in cui i bordi della testa formano un angolo di 90 gradi con l'albero).

Ecco che cosa potrebbe essere simile con 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)))