powered by
"summary"(object, ...)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() summary(p)
Run the code above in your browser using DataLab