Plotly R中2x2子图如何添加共享Y轴标题？

1. Plotly是否有原生方法为子图添加共享轴标题？ #

Plotly R目前没有提供直接的原生参数来实现跨子图的共享Y轴标题，只能通过自定义注释或布局调整来模拟这一效果。

2. 如何让注释在子图缩放时保持相对位置不变？ #

使用xref='paper'和yref='paper'是正确的方向，它们基于整个绘图区域的比例（0-1范围）定位，缩放时相对位置会保持稳定。你之前遇到的偏移问题，主要是注释的x位置设置不合理，以及未预留足够边距导致标题被挤压或偏移。

以下是修正后的代码，解决了注释偏移和位置固定的问题：

if (!require("plotly")) install.packages("plotly")
library(plotly)

group <- c("a", "b", "c")
values <- c(0, 5, 10)
df <- data.frame(group, values)

# 创建基础绘图，隐藏单个子图的Y轴标题
plot <- df %>% 
  plot_ly() %>% 
  add_trace(x = ~group, y = ~values, type = "scatter", mode = "line") %>% 
  layout(
    yaxis = list(ticks = "outside", title = ""), # 隐藏单个子图的Y轴标题
    xaxis = list(showline = TRUE)
  )

# 创建2x2子图
subdf <- subplot(
  plot, plot,
  plot, plot,
  nrows = 2,
  margin = 0.06
) %>% 
  layout(
    # 设置足够的左侧边距，避免标题被截断
    margin = list(l = 80, r = 20, t = 20, b = 20),
    annotations = list(
      # 左列共享Y轴标题
      list(
        x = 0.23, # 左列区域的中心比例位置
        y = 0.5,
        text = "<b>左列共享Y轴标题</b>",
        xref = "paper",
        yref = "paper",
        xanchor = "center",
        yanchor = "center",
        showarrow = FALSE,
        textangle = -90,
        font = list(color = "black", size = 16)
      ),
      # 右列共享Y轴标题
      list(
        x = 0.77, # 右列区域的中心比例位置
        y = 0.5,
        text = "<b>右列共享Y轴标题</b>",
        xref = "paper",
        yref = "paper",
        xanchor = "center",
        yanchor = "center",
        showarrow = FALSE,
        textangle = -90,
        font = list(color = "black", size = 16)
      )
    )
  )

subdf

关键调整点： #

• 隐藏单个子图的Y轴标题，避免重复显示
• 设置足够的左侧边距margin = list(l = 80)，确保左侧标题不会被截断或挤压
• 注释的x值设为对应列的中心比例位置，确保缩放时始终对齐列的中间
• 保留xref='paper'和yref='paper'，让注释基于绘图区域比例定位，缩放时相对位置不变

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