如何在R与Shiny的Plotly子图中添加全局Y轴标签？

针对你需要给整个图表添加居中的全局Y轴标题，同时在autosize = TRUE时保持标题方向的需求，我调整了你的代码，用**全局注释（annotation）**的方式来实现这个效果，完美避开子图标题的限制。

修改后的完整代码 #

library(plotly)

plotList <- function(nplots) {
  lapply(seq_len(nplots), function(x) {
    plot_ly(economics, x = ~date, y = ~unemploy) %>%
      add_annotations(
        text = ~paste("Plot ",x),
        x = 0.5, y = 1.1,
        yref = "paper", xref = "paper",
        xanchor = "middle", yanchor = "top",
        showarrow = FALSE)
  } )
}

# 子图组合时关闭子图行的Y轴标题
s1 <- subplot(plotList(4), nrows = 4, shareX = TRUE, shareY = TRUE, titleY = FALSE, margin = .01)
s2 <- subplot(plotList(2), shareY = TRUE, titleY = FALSE)
# 去掉单个子图的Y轴标题，改用全局标题
single_plot <- plot_ly(economics, x = ~date, y = ~unemploy)

fig <- subplot(s1, s2, single_plot, nrows = 3, margin = 0.04, heights = c(0.6, 0.3, 0.1), titleY = FALSE) %>%
  layout(
    autosize = TRUE,
    # 添加全局Y轴标题，基于整个画布定位
    annotations = list(
      list(
        text = "Thousands of People",
        xref = "paper",
        yref = "paper",
        x = -0.05,  # 向左偏移，避免和子图Y轴刻度重叠
        y = 0.5,    # 垂直居中对齐整个图表
        showarrow = FALSE,
        textangle = -90,  # 保持标题垂直方向（从上到下）
        font = list(size = 12)
      )
    )
  )

fig

关键修改点说明 #

• 关闭子图行的Y轴标题：把所有subplot()里的titleY参数都设为FALSE，避免子图行的标题和全局标题冲突。
• 用全局annotation实现Y轴标题：通过xref = "paper"和yref = "paper"，让标题基于整个图表画布定位，而不是某个子图，这样无论图表怎么缩放（autosize = TRUE），标题都会保持在整个图表的垂直中间位置。
• 保持标题方向：设置textangle = -90让标题垂直显示，这个参数不受画布大小变化影响，始终保持正确方向。
• 调整偏移避免重叠：x = -0.05的偏移量可以根据你的图表宽度微调，确保标题不会和子图的Y轴刻度挤在一起。

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