如何为ggplot2的facet_wrap分面图统一自定义Y轴断点

问题场景 #

我通过facet_wrap函数创建了分面图，希望修改所有分面的Y轴刻度断点。

当前绘图代码 #

ggplot( mtcars , aes(x=mpg, y=wt, color=as.factor(cyl) )) +
  geom_point(size=3) +
  facet_wrap(~cyl,scales = "free_y") +
  theme(legend.position="none")

期望效果参考 #

参考单图实现代码：

p = ggplot(data=mtcars, aes(x=mpg, y=wt)) +
  geom_point(size=3) +
  theme_classic()
ymax <- ceiling(max(mtcars$wt))
p + scale_y_continuous(breaks = c(0, ymax), expand = c(0, 0)) + expand_limits(y = ymax)

实现方法 #

不需要额外安装扩展包，直接用ggplot2原生功能即可实现，核心是给scale_y_continuous的breaks参数传入匿名函数，自动适配每个free_y分面的轴范围：

ggplot(mtcars , aes(x=mpg, y=wt, color=as.factor(cyl) )) +
  geom_point(size=3) +
  facet_wrap(~cyl, scales = "free_y") +
  scale_y_continuous(
    # 每个分面Y轴固定显示0、当前分面Y最大值向上取整两个断点
    breaks = ~c(0, ceiling(.x[2])),
    # 去掉坐标轴默认边距，和参考效果一致
    expand = c(0, 0)
  ) +
  # 强制所有分面Y轴从0开始
  expand_limits(y = 0) +
  theme(legend.position="none")

代码说明：

• 当分面开启free_y时，传入breaks的匿名函数会自动接收当前分面的Y轴范围作为入参，.x[1]为轴最小值、.x[2]为轴最大值
• ceiling(.x[2])会自动取当前分面Y轴最大值的向上整数作为上断点
• expand = c(0,0)去掉轴两端默认留白，expand_limits(y=0)保证所有分面Y轴起点对齐到0

如果需要更灵活的分面刻度自定义，可以安装ggh4x扩展包，通过facetted_pos_scales给每个分面单独设置完全独立的刻度规则。

内容的提问来源于stack exchange，提问作者showteth