library(ggplot2)
plt <- ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy)) + 
  facet_grid(drv ~ cyl)
constructive::construct(plt, data = list(data = mpg))
#> {constructive} couldn't create code that reproduces perfectly the input
#> ℹ Call `construct_issues()` to inspect the last issues
#> data |>
#>   ggplot2::ggplot() +
#>   ggplot2::geom_point(mapping = ggplot2::aes(displ, hwy)) +
#>   constructive::.env(
#>     "0x10f3033c0",
#>     parents = "empty",
#>     class = c("FacetGrid", "Facet", "ggproto", "gg")
#>   )