Làm cách nào để trích xuất phạm vi trục biểu đồ cho đối tượng ggplot2?

Tôi có một đối tượng ggplot2, chẳng hạn myPlot, làm cách nào tôi có thể xác định phạm vi cho trục x và y?

Nó dường như không phải là bội số đơn giản của phạm vi giá trị dữ liệu, bởi vì người ta có thể bán lại các ô, sửa đổi phạm vi trục, v.v. findFn(từ sos) và Google dường như không hiển thị các kết quả có liên quan, ngoài cách thiết lập phạm vi của trục.

Trong các phiên bản mới hơn của ggplot2, bạn có thể tìm thấy thông tin này trong đầu ra của ggplot_build(p), nơi plà đối tượng ggplot của bạn.

Đối với các phiên bản cũ hơn của ggplot (<0,8,9), giải pháp sau hoạt động:

Và cho đến khi Hadley phát hành phiên bản mới, điều này có thể hữu ích. Nếu bạn không đặt giới hạn trong cốt truyện, sẽ không có thông tin trong đối tượng ggplot. Tuy nhiên, trong trường hợp đó, bạn có thể sử dụng giá trị mặc định của ggplot2 và lấy xlim và ylim từ dữ liệu.

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

$x
NULL

$y
NULL

Sau khi bạn đặt giới hạn, chúng sẽ có sẵn trong đối tượng:

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

$y
NULL

Tôi đang sử dụng ggplot2phiên bản 2, tôi không chắc cái này có giống với phiên bản trước hay không, Giả sử bạn đã lưu âm mưu của mình trên pltđối tượng. Thật dễ dàng để trích xuất các phạm vi,

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

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

Trong trường hợp biểu đồ khía cạnh, bạn có thể truy cập thang đo của từng khía cạnh bằng cách sử dụng layer_scales(plot, row_idx, col_idx). Ví dụ: để truy cập khía cạnh ở hàng đầu tiên và cột thứ hai,

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

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

CẬP NHẬT THÁNG 11/2018

Kể từ ggplot2 phiên bản 3.1.0 , các tính năng sau hoạt động:

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

Một chức năng tiện lợi:

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)

Cho đến bản cập nhật tiếp theo ...

Nhận yrange với

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

và xrange với

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

Trong phiên bản 2.2.0, điều này phải được thực hiện như sau:

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

Kể từ tháng 8 năm 2018, bạn trích xuất phạm vi trục x và y với những điều sau.

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

Như đã đề cập ở đây: https://gist.github.com/tomhopper/9076152#gistcomment-2624958 có sự khác biệt giữa hai tùy chọn:

#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

Đây là một tập hợp các hàm tiện lợi để lấy danh sách các ô, trích xuất dải trục y phổ biến và thay thế nó. Tôi cần nó vì tôi đã sử dụng các tập dữ liệu khác nhau trong một biểu đồ được sắp xếp qua 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)
}

Tôi nghĩ điều này cũng có thể hữu ích cho những người khác.