Posizionamento relativo di geom_text in ggplot2?

Question

Sto usando geom_text per annotare i grafici in gglot2 e voglio utilizzare il posizionamento relativo piuttosto che assoluto. Cioè, voglio che la posizione di (0.5, 0.5) sia a punto morto, indipendentemente dai limiti dell'asse xey. È possibile?

In alternativa, potrei ovviamente trasformare una posizione relativa in una assoluta se avessi i limiti x e y. È possibile estrarre quelli da una trama?

Answer 1

Se si conosce l'intervallo dei dati nel grafico, è possibile calcolare i limiti "veri" xey utilizzando il fatto che ggplot utilizza un fattore di espansione additiva di 0,05 per impostazione predefinita, in modo che le estensioni del grafico si estendano solo leggermente oltre i valori dei dati effettivi.

È possibile specificare il fattore di espansione moltiplicativo e additivo quando si specificano le scale utilizzando expand = c(mult, add) dove mult è il fattore moltiplicativo e così via. Quindi l'impostazione predefinita è expand = c(0,0.05).

Answer 2

Sì, è possibile estrarre i limiti x e y da un diagramma ggplot2. Questa funzione restituisce la coordinate x e y del centro di un oggetto trama ggplot2:

center.position <- function(plot) { 
xpos <- (ggplot_build(plot)$panel$ranges[[1]]$x.range[2]-ggplot_build(plot)$panel$ranges[[1]]$x.range[1])/2+ggplot_build(plot)$panel$ranges[[1]]$x.range[1] 
ypos <- (ggplot_build(plot)$panel$ranges[[1]]$y.range[2]-ggplot_build(plot)$panel$ranges[[1]]$y.range[1])/2+ggplot_build(plot)$panel$ranges[[1]]$y.range[1] 
return(data.frame(x=xpos,y=ypos)) 
} 

Se la x-Data è in POSIXct formato, avete ancora a trasformarlo:

center.coords <- center.position(myplot) 
myplot <- myplot + annotate("text",x=as.POSIXct(center.coords$x,origin="1970-01-01"), y=center.coords$y, label="X")