# NOT RUN {
library(ggplot2)
p <- ggplot(mpg, aes(displ, cty)) +
geom_point() +
labs(
title = "Plot title",
subtitle = "Plot subtitle"
)
ggdraw(get_title(p))
ggdraw(get_subtitle(p))
# }
Run the code above in your browser using DataLab