Come posso estrarre gli intervalli degli assi del grafico per un oggetto ggplot2?

Ho un oggetto da ggplot2, diciamo myPlot, come posso identificare gli intervalli per gli assi x e y?

Non sembra essere un semplice multiplo dell'intervallo dei valori dei dati, perché è possibile ridimensionare i grafici, modificare gli intervalli degli assi e così via. findFn(da sos) e Google non sembrano fornire risultati pertinenti, a parte come impostare gli intervalli degli assi.

Nelle versioni più recenti di ggplot2, puoi trovare queste informazioni nell'output di ggplot_build(p), dov'è il ptuo oggetto ggplot.

Per le versioni precedenti di ggplot (<0.8.9), la seguente soluzione funziona:

E fino a quando Hadley non rilascia la nuova versione, questo potrebbe essere utile. Se non imposti i limiti nel grafico, non ci saranno informazioni nell'oggetto ggplot. Tuttavia, in questo caso puoi usare i valori predefiniti di ggplot2 e ottenere xlim e ylim dai dati.

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

$x
NULL

$y
NULL

Una volta impostati i limiti, diventano disponibili nell'oggetto:

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

$y
NULL

Sto usando la ggplot2versione 2, non sono sicuro che sia la stessa versione precedente, supponiamo di aver salvato la trama pltsull'oggetto. È facile estrarre gli intervalli,

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

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

In caso di sfaccettatura, è possibile accedere alle scale delle singole sfaccettature utilizzando layer_scales(plot, row_idx, col_idx). Ad esempio, per accedere al facet nella prima riga e nella seconda colonna,

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

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

AGGIORNAMENTO novembre 2018

A partire dalla ggplot2 versione 3.1.0 , funziona quanto segue:

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

Una funzione di comodità:

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)

Fino al prossimo aggiornamento ...

Prendi la yrange con

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

e xrange con

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

Nella versione 2.2.0 questo deve essere fatto come segue:

# 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 partire da agosto 2018 si estraggono gli intervalli degli assi xey con quanto segue.

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

Come accennato qui: https://gist.github.com/tomhopper/9076152#gistcomment-2624958 c'è una differenza tra le due opzioni:

#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

Ecco una serie di funzioni utili per prendere un elenco di grafici, estrarre l'intervallo comune dell'asse y e sostituirlo. Ne avevo bisogno perché ho utilizzato diversi set di dati all'interno di un grafico organizzato tramite 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)
}

Ho pensato che questo potrebbe essere utile anche per altri.