I am using geom_text
to annotate plots in gglot2
and I want use relative positioning rather than absolute. That is, I want a position of (0.5, 0.5)
to be dead center regardless of the x and y axis limits. Is that possible?
Alternatively I could of course transform a relative position to an absolute one if I had the x and y limits. Is it possible to extract those from a plot?
If you know the range of the data in your plot, you can calculate the "true" x and y limits using the fact that ggplot
using an additive expansion factor of 0.05 by default, so that the extents of the graph extend just slightly beyond the actual data values.
You can specify and multiplicative and additive expansion factor when specifying scales using expand = c(mult, add)
where mult
is the multiplicative factor and so on. So the default setting is expand = c(0,0.05)
.
Yes, it is possible to extract the x and y limits from a ggplot2-plot. This function returns the x and y coordinate of the center of a ggplot2 plot object:
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))
}
If your x-Data is in POSIXct-format, you still have to transform it:
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")
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With