ฉันจะแยกช่วงของแกนพล็อตสำหรับออบเจ็กต์ ggplot2 ได้อย่างไร

ฉันมีวัตถุจากggplot2พูดmyPlotว่าฉันจะระบุช่วงของแกน x และ y ได้อย่างไร

ดูเหมือนว่าจะไม่ใช่ช่วงของค่าข้อมูลแบบพหุคูณอย่างง่าย ๆ เพราะเราสามารถปรับขนาดพล็อตแก้ไขช่วงแกนและอื่น ๆ ได้ findFn(จากsos) และ Google ดูเหมือนจะไม่แสดงผลลัพธ์ที่เกี่ยวข้องนอกเหนือจากวิธีตั้งค่าช่วงของแกน

ใน ggplot2 เวอร์ชันใหม่กว่าคุณสามารถค้นหาข้อมูลนี้ได้จากผลลัพธ์ของอ็อบเจ็กต์ ggplot ของคุณอยู่ggplot_build(p)ที่ไหนp

สำหรับ ggplot เวอร์ชันเก่า (<0.8.9) วิธีแก้ปัญหาต่อไปนี้ใช้ได้:

และจนกว่า Hadley จะออกเวอร์ชันใหม่สิ่งนี้อาจเป็นประโยชน์ หากคุณไม่กำหนดขีด จำกัด ในพล็อตจะไม่มีข้อมูลในวัตถุ ggplot อย่างไรก็ตามในกรณีนี้คุณสามารถใช้ค่าเริ่มต้นของ ggplot2 และรับ xlim และ ylim จากข้อมูล

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

$x
NULL

$y
NULL

เมื่อคุณกำหนดขีด จำกัด แล้วจะพร้อมใช้งานในออบเจ็กต์:

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

$y
NULL

ฉันใช้ggplot2เวอร์ชัน 2 ฉันไม่แน่ใจว่านี่เป็นเวอร์ชันก่อนหน้าหรือไม่สมมติว่าคุณได้บันทึกพล็อตของคุณในpltวัตถุ ง่ายต่อการแยกช่วง

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

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

layer_scales(plot, row_idx, col_idx)ในกรณีที่มีพล็อตในแง่นี้คุณสามารถเข้าถึงเครื่องชั่งน้ำหนักของแง่มุมของแต่ละบุคคลโดยใช้ ตัวอย่างเช่นในการเข้าถึง facet ในแถวแรกและคอลัมน์ที่สอง

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

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

อัพเดทพฤศจิกายน 2561

สำหรับggplot2 เวอร์ชัน 3.1.0การทำงานดังต่อไปนี้:

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

ฟังก์ชั่นอำนวยความสะดวก:

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)

จนกว่าจะมีการปรับปรุงครั้งต่อไป ...

รับ yrange ด้วย

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

และ xrange ด้วย

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

ในเวอร์ชัน 2.2.0จะต้องดำเนินการดังนี้:

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

ณ เดือนสิงหาคม 2018 คุณแยกช่วง x และแกน y ออกมาดังต่อไปนี้

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

ดังที่กล่าวไว้ที่นี่: https://gist.github.com/tomhopper/9076152#gistcomment-2624958มีความแตกต่างระหว่างสองตัวเลือก:

#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 ทั่วไปและแทนที่ ฉันต้องการมันเพราะฉันใช้ชุดข้อมูลที่แตกต่างกันภายในกราฟเดียวที่จัดเรียงผ่าน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)
}

ฉันคิดว่านี่อาจเป็นประโยชน์สำหรับคนอื่น ๆ