aggiungere testo a plotter orizzontale in R, asse y su scala diversa?

Question

Sto provando ad aggiungere del testo sul lato destro di un barilotto orizzontale alle stesse altezze di ogni barra, tuttavia, sia text() che axis() non sembrano tracciare questo alle altezze corrispondenti a ciascuna bar.

Ecco un barplot simile

x <- runif(10, 0,1) 
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE) 
barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, xlim=c(0, 1.2)) 

Nessuna di queste due opzioni allineare correttamente, come funziona il ridimensionamento qui?

axis(4, at=seq(1,10,1), labels=seq(1,10,1)) 
text(1.1, seq(1,10,1), labels=seq(1, 10, 1)) 

Answer 1

Con chacking la documentazione di barplot, si può vedere che ha un valore di ritorno invisibile: i punti medi delle barre. È possibile utilizzare quelli per aggiungere ulteriori informazioni alla trama.

x <- runif(10, 0,1) 
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE) 
bp <- barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, 
       xlim=c(0, 1.2)) 
text(x, bp, signif(x,2), pos=4) 
bp