Lines: https://github.com/tidyverse/ggplot2/blob/a2d0181adc10de7589bce50b13910a97e6fca756/R/plot.R#L278-L285 Reprex: ```r p <- ggplot(mpg, aes(cty, hwy)) + geom_point() p$barret <- "Hello" as.list(p) ``` Expecting: `list(..., barret = "Hello") Received: `list(..., meta = list(barret = "Hello"))`