Como posso extrair os intervalos dos eixos do gráfico para um objeto ggplot2?

Tenho um objeto de ggplot2, digamos myPlot, como posso identificar os intervalos dos eixos xey?

Não parece ser um simples múltiplo do intervalo dos valores dos dados, porque é possível redimensionar os gráficos, modificar os intervalos dos eixos e assim por diante. findFn(de sos) e o Google não parecem estar apresentando resultados relevantes, além de como definir os intervalos dos eixos.

Em versões mais recentes do ggplot2, você pode encontrar essas informações entre a saída de ggplot_build(p), onde pestá seu objeto ggplot.

Para versões mais antigas do ggplot (<0.8.9), a seguinte solução funciona:

E até que Hadley lance a nova versão, isso pode ser útil. Se você não definir os limites no gráfico, não haverá informações no objeto ggplot. No entanto, nesse caso, você pode usar os padrões de ggplot2 e obter xlim e ylim dos dados.

> ggobj = ggplot(aes(x = speed, y = dist), data = cars) + geom_line()
> ggobj$coordinates$limits

$x
NULL

$y
NULL

Depois de definir os limites, eles se tornam disponíveis no objeto:

> bla = ggobj + coord_cartesian(xlim = c(5,10))
> bla$coordinates$limits
$x
[1]  5 10

$y
NULL

Estou usando a ggplot2versão 2, não tenho certeza se é a mesma da versão anterior, suponha que você salvou seu gráfico no pltobjeto. É fácil extrair os intervalos,

# y-range
layer_scales(plt)$y$range$range

# x-range
layer_scales(plt)$x$range$range

No caso do gráfico de facetas, você pode acessar escalas de facetas individuais usando layer_scales(plot, row_idx, col_idx). Por exemplo, para acessar a faceta na primeira linha e na segunda coluna,

# y-range
layer_scales(plt, 1, 2)$y$range$range

# x-range
layer_scales(plt, 1, 2)$x$range$range

ATUALIZAÇÃO DE novembro de 2018

A partir da ggplot2 versão 3.1.0 , funciona o seguinte:

obj <- qplot(mtcars$disp, bins = 5)

# x range
ggplot_build(obj)$layout$panel_params[[1]]$x.range

# y range
ggplot_build(obj)$layout$panel_params[[1]]$y.range

Uma função de conveniência:

get_plot_limits <- function(plot) {
    gb = ggplot_build(plot)
    xmin = gb$layout$panel_params[[1]]$x.range[1]
    xmax = gb$layout$panel_params[[1]]$x.range[2]
    ymin = gb$layout$panel_params[[1]]$y.range[1]
    ymax = gb$layout$panel_params[[1]]$y.range[2]
    list(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax)
}
get_plot_limits(p)

Até a próxima atualização ...

Obtenha o yrange com

ggplot_build(myPlot)$panel$ranges[[1]]$y.range 

e o xrange com

ggplot_build(myPlot)$panel$ranges[[1]]$x.range

Na versão 2.2.0, isso deve ser feito da seguinte forma:

# y-range
ggplot_build(plot.object)$layout$panel_ranges[[1]]$y.range
# x-range
ggplot_build(plot.object)$layout$panel_ranges[[1]]$x.range

A partir de agosto de 2018, você extraiu os intervalos dos eixos xey com o seguinte.

ggplot_build(obj)$layout$panel_scales_x[[1]]$range$range ggplot_build(obj)$layout$panel_scales_y[[1]]$range$range

Conforme mencionado aqui: https://gist.github.com/tomhopper/9076152#gistcomment-2624958 há uma diferença entre as duas opções:

#get ranges of the data
ggplot_build(obj)$layout$panel_scales_x[[1]]$range$range 
ggplot_build(obj)$layout$panel_scales_y[[1]]$range$range

#get ranges of the plot axis
ggplot_build(obj)$layout$panel_params[[1]]$x.range
ggplot_build(obj)$layout$panel_params[[1]]$y.range

Aqui está um conjunto de funções convenientes para obter uma lista de gráficos, extrair o intervalo comum do eixo y e substituí-lo. Eu precisava disso porque usei diferentes conjuntos de dados em um gráfico organizado por meio de ggarange:

require(ggplot2)
#get the visible scales from single plots
get_plot_view_ylimits <- function(plot) {
  gb = ggplot_build(plot)
  ymin = gb$layout$panel_params[[1]]$y.range[1]
  ymax = gb$layout$panel_params[[1]]$y.range[2]
  message(paste("limits are:",ymin,ymax))
  list(ymin = ymin, ymax = ymax)
}

#change the limit of single plot, using list of limits
change_plot_ylimits <- function(plot, nlimits){
  p <- plot + ggplot2:::limits(unlist(nlimits, use.names =FALSE),"y")
}

#adjust the scales of multiple plots
#take a list of plots, passes back adjusted list of plots
adjust_plots_shared_ylimits <- function(plotList) {
  #read limits
  first <- TRUE
  for (plot in plotList) {
    if (first) {
      nlimits <- get_plot_view_ylimits(plot)
      first <- FALSE
    } else {
      altLimits <- get_plot_view_ylimits(plot)
      nlimits$ymin <- min(nlimits$ymin,altLimits$ymin)
      nlimits$ymax <- max(nlimits$ymax,altLimits$ymax)
    }
  }
  message(paste("new limits are:",nlimits$ymin,nlimits$ymax))
  #adjust limits
  lapply(plotList,change_plot_ylimits,nlimits)
}

Achei que isso também poderia ser útil para outras pessoas.