如何为非分面ggplot添加右侧Y轴的分面标签？

我想给非分面的ggplot图表添加分面时右侧Y轴显示的那种标签，Plotv2展示了我想要的Y轴标签效果，但我不想把数据拆分成两个分面。请问有没有现成的theme参数可以轻松添加第二个Y轴标题，还是必须使用自定义grob？

library(ggplot2)
library(grid)

df <- data.frame(
  Position=(c(1:5000)),
  Signal=(c((rep(c(5),times=2000)), (rep(c(100),times=1000)), (rep(c(5),times=2000))))
)

Plotv1 <- ggplot() +
  geom_line(data = df, aes(x=Position, y=Signal, col = "#000000")) +
  coord_cartesian(clip="off") +
  guides(fill = "none") +
  guides(color=guide_legend(title="MyLegend")) +
  theme_bw() +
  theme(axis.text.x = element_blank()) +
  theme(
    axis.title.x = element_text(margin=margin(t=30)),
    legend.title = element_text(colour = "#000000", size=12),
    legend.text = element_text(colour = "#000000", size=12)
  ) +
  annotation_custom(
    grid::segmentsGrob(
      y0 = unit(-25, "pt"),
      y1 = unit(-25, "pt"),
      arrow = arrow(angle=45, type="closed", length=unit(.15, 'cm')),
      gp = grid::gpar(lwd=3, col="#000000", fill="#000000")
    ),
    xmin = 2000,
    xmax = 3000
  )

ggsave(paste("~/Desktop/Plotv1.png", sep = ""), Plotv1, width = 8, height = 1.7)

Plotv2 <- Plotv1 +
  facet_grid(Signal~.)

ggsave(paste("~/Desktop/Plotv2.png", sep = ""), Plotv2, width = 8, height = 1.7)

• Plotv1：无右侧分面标签的单条线图表，X轴无刻度文本，底部有箭头标注区间
• Plotv2：按Signal分面后的图表，右侧Y轴旁显示"5"和"100"两个分面标签

没有现成的theme参数可以直接实现这个效果，因为分面标签属于分面系统的专属元素，而非常规轴标题范畴。不过不用复杂的自定义grob，有几个简单方法可以模拟需求效果：

方法1：用annotation_custom添加文本 #

借助annotation_custom直接在图表右侧指定位置添加文本，配合已开启的coord_cartesian(clip="off")确保文本不被裁剪：

# 定义要添加的文本grob
text_grob_5 <- textGrob(label = "5", rot = -90, gp = gpar(fontsize = 12))
text_grob_100 <- textGrob(label = "100", rot = -90, gp = gpar(fontsize = 12))

Plotv1 +
  annotation_custom(text_grob_5, xmin = 5000, xmax = 5000, ymin = 5, ymax = 5) +
  annotation_custom(text_grob_100, xmin = 5000, xmax = 5000, ymin = 100, ymax = 100) +
  # 调整右侧边距，让文本完整显示
  theme(plot.margin = margin(5, 30, 5, 5))

方法2：用sec_axis模拟（贴合轴标签样式） #

通过双Y轴功能，让右侧轴的刻度与数据完全匹配，只保留目标标签，视觉上更贴近分面标签效果：

Plotv1 +
  scale_y_continuous(
    sec.axis = sec_axis(
      ~ .,
      breaks = c(5, 100),
      labels = c("5", "100"),
      name = NULL # 隐藏右侧轴标题
    )
  ) +
  theme(
    axis.text.y.right = element_text(size = 12),
    # 可选：去掉右侧轴的刻度线，更贴近分面标签样式
    axis.ticks.y.right = element_blank()
  )

这个方法的优势是标签位置会自动与Y轴刻度对齐，无需手动调整坐标。

方法3：用gtable修改布局（进阶复刻） #

如果需要完全复刻分面标签的样式（比如带背景框），可以直接修改ggplot的gtable对象：

# 获取Plotv1的gtable结构
gt <- ggplotGrob(Plotv1)

# 给图表右侧添加一列用于放置标签
gt <- gtable_add_cols(gt, width = unit(1, "cm"), pos = ncol(gt))

# 添加标签文本到指定位置
gt <- gtable_add_grob(gt, 
                      list(textGrob("5", rot = -90, gp = gpar(fontsize = 12)),
                           textGrob("100", rot = -90, gp = gpar(fontsize = 12))),
                      t = c(7, 7), l = ncol(gt),
                      b = c(7, 7), r = ncol(gt),
                      y = unit(c(5, 100), "native"),
                      clip = "off")

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

这个方法自由度最高，但需要对gtable的布局结构有基础了解。

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