devtools::load_all("~/packages/ggplot2")
#> ℹ Loading ggplot2
p <- ggplot(mpg, aes(displ, hwy)) + geom_point()
build <- ggplot_build(p)

head(layer_data(build))
#>     x  y PANEL group shape colour size fill alpha stroke
#> 1 1.8 29     1    -1    19  black  1.5   NA    NA    0.5
#> 2 1.8 29     1    -1    19  black  1.5   NA    NA    0.5
#> 3 2.0 31     1    -1    19  black  1.5   NA    NA    0.5
#> 4 2.0 30     1    -1    19  black  1.5   NA    NA    0.5
#> 5 2.8 26     1    -1    19  black  1.5   NA    NA    0.5
#> 6 2.8 26     1    -1    19  black  1.5   NA    NA    0.5
layer_grob(build)
#> [[1]]
#> points[geom_point.points.12]
layer_scales(build)
#> $x
#> <ScaleContinuousPosition>
#>  Range:   1.6 --    7
#>  Limits:  1.6 --    7
#> 
#> $y
#> <ScaleContinuousPosition>
#>  Range:    12 --   44
#>  Limits:   12 --   44