# NOT RUN {
library(ggplot2)
library(gtable)
library(grid)
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
gtable_show_grill(p)
library(ggplot2)
library(gtable)
library(grid)
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
gtable_show_names(p)
# }
Run the code above in your browser using DataLab