如何让分面图（faceted plots）的Y轴终止于刻度标记？

我完全懂你这个痛点——用facet_wrap做分面图时，就算用pretty_breaks()设置了等距刻度，默认情况下Y轴经常没办法刚好卡在刻度的首尾两端，分面后每个子图的Y轴范围还得适配各自的数据，确实麻烦。这里给你两个实用的解决方案：

方法1：用ggh4x包给每个分面单独设置Y轴（最推荐） #

ggh4x是ggplot2的扩展包，专门解决这类分面轴定制的问题，能轻松给每个分面单独定义Y轴的breaks和limits，完美实现“Y轴终止于刻度”的需求。

library(ggplot2)
library(ggh4x)
library(scales)

# 假设你的数据框名为df，绘图用的是箱线图（替换成你实际的几何对象即可）
ggplot(df, aes(x = Genotype, y = Ratio)) +
  geom_boxplot(fill = "#69b3a2") +
  facet_wrap(~Organ, scales = "free_y") +
  # 给每个分面单独设置Y轴
  facetted_pos_scales(
    y = list(
      lapply(unique(df$Organ), function(org) {
        # 提取当前分面的Y值
        current_y <- df$Ratio[df$Organ == org]
        # 计算等距刻度
        y_breaks <- pretty_breaks()(current_y)
        # 设置Y轴范围为刻度的首尾，确保轴终止于刻度
        scale_y_continuous(breaks = y_breaks, limits = range(y_breaks))
      })
    )
  )

方法2：无需额外包，手动计算每个分面的Y轴范围 #

如果不想安装新包，可以先对数据做预处理，计算每个分面对应的Y轴刻度和范围，再传递给ggplot2：

library(ggplot2)
library(scales)
library(dplyr)

# 第一步：按分面分组（这里是Organ）计算每个组的Y轴刻度和首尾范围
axis_info <- df %>%
  group_by(Organ) %>%
  summarise(
    y_breaks = list(pretty_breaks()(Ratio)),
    y_min = min(unlist(y_breaks)),
    y_max = max(unlist(y_breaks))
  )

# 把轴信息合并回原数据
df <- df %>% left_join(axis_info, by = "Organ")

# 第二步：绘图时动态调用每个分面的轴范围
ggplot(df, aes(x = Genotype, y = Ratio)) +
  geom_jitter(width = 0.2, color = "#333333") + # 替换成你的几何对象
  facet_wrap(~Organ, scales = "free_y") +
  scale_y_continuous(
    breaks = function(x) {
      # 提取当前分面对应的刻度
      current_org <- unique(df$Organ[df$Ratio >= min(x) & df$Ratio <= max(x)])
      unlist(axis_info$y_breaks[axis_info$Organ == current_org])
    },
    limits = function(x) {
      # 提取当前分面对应的首尾范围
      current_org <- unique(df$Organ[df$Ratio >= min(x) & df$Ratio <= max(x)])
      c(axis_info$y_min[axis_info$Organ == current_org], 
        axis_info$y_max[axis_info$Organ == current_org])
    }
  )

关键说明 #

两种方法的核心逻辑都是：先针对每个分面的单独数据计算pretty_breaks()，再把Y轴的limits强制设置为这些刻度的最小值和最大值，这样就能保证Y轴的两端刚好落在刻度标记上，同时保留等距刻度的效果。

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