Wie kann ich die Bereiche der Plotachsen für ein ggplot2-Objekt extrahieren?

Ich habe ein Objekt von beispielsweise ggplot2, myPlotwie kann ich die Bereiche für die x- und y-Achse identifizieren?

Es scheint kein einfaches Vielfaches des Datenwertbereichs zu sein, da Diagramme neu skaliert, Achsenbereiche geändert werden können usw. findFn(von sos) und Google scheinen keine relevanten Ergebnisse zu liefern, außer wie die Achsenbereiche eingestellt werden.

In neueren Versionen von ggplot2 finden Sie diese Informationen in der Ausgabe von ggplot_build(p), wo psich Ihr ggplot-Objekt befindet.

Für ältere Versionen von ggplot (<0.8.9) funktioniert die folgende Lösung:

Und bis Hadley die neue Version veröffentlicht, könnte dies hilfreich sein. Wenn Sie die Grenzen im Plot nicht festlegen, enthält das ggplot-Objekt keine Informationen. In diesem Fall können Sie jedoch die Standardeinstellungen von ggplot2 verwenden und xlim und ylim aus den Daten abrufen.

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

$x
NULL

$y
NULL

Sobald Sie die Grenzwerte festgelegt haben, werden sie im Objekt verfügbar:

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

$y
NULL

Ich verwende ggplot2Version 2 und bin mir nicht sicher, ob dies mit der vorherigen Version identisch ist. Angenommen, Sie haben Ihr Diagramm auf einem pltObjekt gespeichert . Es ist einfach, die Bereiche zu extrahieren,

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

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

Im Falle eines Facettendiagramms können Sie mit auf Skalen einzelner Facetten zugreifen layer_scales(plot, row_idx, col_idx). Um beispielsweise auf die Facette in der ersten Zeile und zweiten Spalte zuzugreifen,

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

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

November 2018 UPDATE

Ab ggplot2 Version 3.1.0 funktioniert Folgendes:

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

Eine Komfortfunktion:

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)

Bis zum nächsten Update ...

Holen Sie sich die yrange mit

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

und der xrange mit

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

In Version 2.2.0 muss dies wie folgt erfolgen:

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

Ab August 2018 extrahieren Sie die x- und y-Achsenbereiche wie folgt.

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

Wie hier erwähnt: https://gist.github.com/tomhopper/9076152#gistcomment-2624958 gibt es einen Unterschied zwischen den beiden Optionen:

#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

Hier finden Sie eine Reihe von praktischen Funktionen, mit denen Sie eine Liste von Plots erstellen, den gemeinsamen Bereich der y-Achse extrahieren und ersetzen können. Ich brauchte es, weil ich verschiedene Datensätze in einem Diagramm verwendet habe, das über Folgendes angeordnet ist 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)
}

Ich dachte, das könnte auch für andere nützlich sein.