ggplotが持つファセットの数をプログラムで確認するにはどうすればよいですか？

以下はコードとグラフです。

グラフには3つのファセットがあります。the_plot3つのファセットがある場所はどこにありますか？はい、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

gg_build（）-関数でggplotデータにアクセスできます

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にreprexパッケージ（v0.3.0）によって作成されました}