r - ggplot 2 facet_grid “free_y”，但将Y轴四舍五入到最接近的整数

使用时:

facet_grid(SomeGroup ~, scales="free_y")

是否可以指定，尽管您希望标度是“免费的”，但还是希望将它们四舍五入到最接近的整数？

任何帮助将不胜感激。

最佳答案

鉴于breaks可以使用一个函数，因此我想您可以将基本的中断算法包装在一个不允许非整数的函数中。

从一个例子开始:

ggplot(mtcars, aes(wt, mpg)) +
geom_point() +
facet_grid(am+cyl~., scales="free_y")

查看scales::pretty_breaks的组合方式，创建一个包装它的函数，并且仅允许整数突破:

library("scales")
integer_breaks <- function(n = 5, ...) {
  breaker <- pretty_breaks(n, ...)
  function(x) {
     breaks <- breaker(x)
     breaks[breaks == floor(breaks)]
  }
}

现在使用返回的函数作为scale中的breaks函数

ggplot(mtcars, aes(wt, mpg)) +
geom_point() +
facet_grid(am+cyl~., scales="free_y") +
scale_y_continuous(breaks = integer_breaks())