給定一個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"))