ggplot2オブジェクトを指定すると、軸が離散しているかどうかを検出できますか？

Question

以下のggオブジェクトまたはgg_bオブジェクトのいずれかを指定すると、各軸について、軸にマップされた変数が離散的であるかどうかを検出できますか？

library(ggplot2) 
library(dplyr) 

gg <- 
    mtcars %>% 
    ggplot(aes(factor(cyl), hp)) + 
    geom_point() 

gg_b <- ggplot_build(gg) 

私はグラフィックスの組織スタイルをサポートするためにこれを行うことができます。

SOLUTION（HT /バティスト）

has_discrete_axis <- 
    function(gg) { 
    gg_b <- ggplot2::ggplot_build(gg) 
    lapply(gg_b$layout$panel_scales, 
      function(s) inherits(s[[1]], "ScaleDiscrete")) 
    } 

Answer 1

この

lapply(gg_b$layout$panel_scales, function(s) inherits(s[[1]], "ScaleDiscrete"))