r - ggplot 2 facet_grid "free_y" 但强制 Y 轴四舍五入到最接近的整数

Question

使用时：

facet_grid(SomeGroup ~, scales="free_y") 

是否可以指定尽管您希望刻度是“自由的”，但您希望它们四舍五入到最接近的整数？

任何帮助将不胜感激。

Answer 1

鉴于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)]
  }
}

现在使用 this 返回的breaks函数作为刻度中的函数

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

Answer 2

我可能在这里遗漏了一些东西，但我会做这样的事情。

library(ggplot2)
ggplot(mtcars, aes(wt, mpg)) + 
   geom_point() + 
   facet_grid(am+cyl~., scales="free_y", space = "free_y") +
   scale_y_continuous(breaks = seq(0, 40, 2), expand = c(0, 1))