ggplot2 中的默认中断 - 图例指南和极坐标 y 轴标签的中断限制在哪里

这本质上是一个后续问题ggplot 如何计算其默认中断？当我试图找到一个稍微更优雅的解决方案时，我遇到了这个如何在coord_极坐标图ggplot中添加y轴标签？.

显然，休息时间总是用以下方式计算scales::extended_breaks。然而，极坐标以及连续数据的图例指南似乎消除了这些中断的限制。

这种情况发生在哪里？

library(ggplot2)

ggplot(mtcars, aes(x = mpg, y = mpg, size = hp)) +
  geom_point() +
  coord_polar() +
  labs(color = 'am')

Compare with

scales::extended_breaks()(mtcars$mpg)
#> [1] 10 15 20 25 30 35
scales::extended_breaks()(mtcars$hp)
#> [1]  50 100 150 200 250 300 350

^{Created on 2023-04-01 with reprex v2.0.2}

正如我在评论中提到的，非位置尺度指南和coord_polar是规模或者更准确地说是限制没有扩大。为了coord_polar即使默认扩展设置为零，这发生在CoordPolar$setup_panel_params:

...
if (self$theta == n) {
  expansion <- ggplot2:::default_expansion(scale, c(0, 0.5), c(0, 0))
} else {
  expansion <- ggplot2:::default_expansion(scale, c(0, 0),   c(0, 0))
}
...

因此，返回的下限和上限中断scales::breaks_extended通常会被丢弃，因为它没有落入限制之内。

也就是说，一种选择是延长limits或使用自定义函数，该函数通过计算limits as range(scales::breaks_extended()):

library(ggplot2)

limits_extended <- function() {
  function(x) {
    range((scales::breaks_extended())(x))
  }
}

ggplot(mtcars, aes(x = mpg, y = mpg, size = hp)) +
  geom_point() +
  scale_x_continuous(limits = limits_extended()) +
  scale_y_continuous(limits = limits_extended()) +
  scale_size(limits = limits_extended()) +
  coord_polar() +
  labs(color = 'am')