# NOT RUN {
if(requireNamespace("grid")) {
data <- data.frame(x = rnorm(1e6),
y = rexp(1e6, 10))
# a rasterly object
rasterlyObj <- data %>%
rasterly(mapping = aes(x = x, y = y)) %>%
rasterly_points()
# Generate a grob
rg <- rasterlyGrob(rasterlyObj)
## get the raster grob by `grid::getGrob()`
grid::getGrob(rg, "raster")
grid::grid.newpage()
grid::grid.draw(rg)
# or
grid::grid.newpage()
grid.rasterly(rasterlyObj)
# or `plot`
plot(rasterlyObj, xlab = "rnorm(1e6)",
ylab = "rexp(1e6, 10)",
main = "This is an arbitrary plot")
# or simply print
rasterlyObj
## it is equivalent to `print(rasterlyObj)`
}
# }
Run the code above in your browser using DataLab