Is_discrete-获取比例信息(has_scale、ggplot )

Question

我正在构建一个函数，它允许用户传递一个ggplot对象，然后根据其他参数应用格式化。我需要知道绘图使用的比例类型(离散/填充/连续)，以便我知道要应用哪种类型的配色方案。

例如：

 p <- ggplot(mpg, aes(x = displ, y = hwy, colour = cyl)) + geom_point()

str(p$scales$scales)给了我一个看起来很有希望的列表，但显示的大部分都是函数，我不知道如何提取细节。

在控制台中，scale_name显示'position_d'表示离散，'position_c'表示连续等，但str(p$scales$scale_name)返回null

我试过了

b <- ggplot_build(p)

b$layout$get_scales() etc

但是仍然有一些我不能使用的函数

Answer 1

你可以试试这个

p <- ggplot(mpg, aes(x = displ, y = hwy, colour = cyl)) + geom_point()
ggplot_build(p)$layout$panel_scales

$x
$x[[1]]
<ScaleContinuousPosition>
  Range:   1.6 --    7
Limits:  1.6 --    7


$y
$y[[1]]
<ScaleContinuousPosition>
  Range:    12 --   44
Limits:   12 --   44