Как я могу программно определить, сколько аспектов у ggplot?

Ниже приведен код и график.

График имеет три аспекта. Где the_plotя могу найти это имеет три аспекта? Да, я мог бы получить это из mtcarsфрейма данных, или the_plot$data, но я не хочу воссоздавать анализ данных. Скорее, я хочу проверить графические элементы the_plot, поэтому мне не нужно дублировать логику приложения в нескольких местах. the_plot$facetне показывает ничего, что я узнаю, как и другие переменные графика.

Я использую Tidyverse 1.3.0.

library(tidyverse)
data(mtcars)
the_plot<-ggplot(mtcars, aes(mpg, disp, group=cyl)) + facet_wrap(~cyl) + geom_point()
the_plot

Вы можете получить доступ к данным ggplot с помощью функции gg_build ()

out <- ggplot_build(the_plot)

length(levels(out$data[[1]]$PANEL))
[1] 3

Другой метод

library(ggplot2)
data(mtcars)
the_plot<-ggplot(mtcars, aes(mpg, disp, group=cyl)) + facet_wrap(~cyl) + geom_point()
pb <- ggplot_build(the_plot)
pb$layout$layout$PANEL
#> [1] 1 2 3
#> Levels: 1 2 3

^{Создано 2020-04-21 пакетом представлением (v0.3.0)}