# NOT RUN {
library(ggplot2)
p <- ggplot(mpg, aes(factor(year), (cty + hwy) / 2)) +
geom_boxplot() +
facet_grid(. ~ class)
p
p.dp <- drop_vars(p)
p.dp
object.size(p)
object.size(p.dp)
names(p$data)
names(p.dp$data)
# }
Run the code above in your browser using DataLab