如何在R ggplot2中使用facet_grid()实现交替Y轴？

当然可以实现，下面提供两种实用方案，分别适合不同场景：

方法一：用ggh4x包快速实现（推荐） #

ggh4x是ggplot2的扩展包，专门增强了分面功能，直接支持交替Y轴的设置，代码改动极小：

# 首次使用先安装包
# install.packages("ggh4x")

library(ggplot2)
library(tidyverse)
library(ggh4x)

data <- economics %>%
  select(date, unemploy, pop, psavert) %>%
  pivot_longer(cols = c(unemploy, pop, psavert), names_to = "variable", values_to = "value")

ggplot(data, aes(x = date, y = value, color = variable)) +
  geom_line() +
  # 核心参数：switch.y = "alternating" 实现交替Y轴
  facet_grid2(rows = vars(variable), scales = "free_y", switch.y = "alternating") +
  theme(
    strip.text = element_blank(), 
    strip.background = element_blank(),
    axis.line = element_line(), 
    legend.position = "top",
    # 调整轴标签间距，避免重叠
    axis.title.y.left = element_text(margin = margin(r = 10)),
    axis.title.y.right = element_text(margin = margin(l = 10))
  )

这个方法的优势是简洁，不需要手动调整底层布局，完全通过参数实现需求。

方法二：手动修改gtable（无需额外包） #

如果不想安装第三方包，可以直接操作ggplot生成的gtable对象，手动调整每个分面的Y轴位置：

library(ggplot2)
library(tidyverse)
library(grid)
library(gtable)

data <- economics %>%
  select(date, unemploy, pop, psavert) %>%
  pivot_longer(cols = c(unemploy, pop, psavert), names_to = "variable", values_to = "value")

# 先绘制基础分面图
p <- ggplot(data, aes(x = date, y = value, color = variable)) +
  geom_line() +
  facet_grid(rows = vars(variable), scales = "free_y") +
  theme(
    strip.text = element_blank(), 
    strip.background = element_blank(),
    axis.line = element_line(), 
    legend.position = "top"
  )

# 提取底层gtable对象
gt <- ggplotGrob(p)

# 获取所有左侧Y轴的位置
y_axes <- which(grepl("axis-l", gt$layout$name))

# 遍历轴，偶数位的轴移到右侧
for (i in seq_along(y_axes)) {
  if (i %% 2 == 0) {
    # 修改轴的标识为右侧轴
    gt$layout$name[y_axes[i]] <- gsub("axis-l", "axis-r", gt$layout$name[y_axes[i]])
    # 调整轴的位置到面板右侧
    gt$layout$l[y_axes[i]] <- gt$layout$r[which(gt$layout$name == paste0("panel-", i))] + 1
    # 修正右侧轴标签的方向
    gt$grobs[[y_axes[i]]]$children[[2]]$children[[1]]$hjust <- 1
    gt$grobs[[y_axes[i]]]$children[[2]]$children[[1]]$x <- unit(1, "npc") - unit(3, "pt")
  } else {
    # 奇数位保留左侧轴，移除右侧空轴
    gt$grobs[[which(grepl(paste0("axis-r-", i), gt$layout$name))]] <- nullGrob()
  }
}

# 微调面板间距，避免轴重叠
gt$heights <- gt$heights * 1.1

# 绘制修改后的图
grid.draw(gt)

这个方法适合需要深度自定义布局的场景，完全基于ggplot的底层对象操作，不需要依赖外部包。

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