求助：在R语言的Plotly子图中添加各子图独立标题

当使用subplot()合并多个Plotly图表时，子图原有的layout(title)会被全局布局覆盖，导致独立标题丢失。可以通过以下两种方法为每个子图添加独立标题：

方法1：合并后手动添加全局注释标题 #

在合并后的子图布局中，通过annotations参数手动指定每个子图的标题位置和内容：

# 合并子图时预留顶部边距
facet_chart1 <- subplot(plot1, plot2, nrows = 1, margin = 0.1) %>%
  layout(
    annotations = list(
      # 第一个子图标题
      list(
        text = 'Bar Chart for Data Frame 1',
        x = 0.2,          # 对应第一个子图的中心位置（纸张坐标系0-1）
        y = 1.1,          # 标题位于子图上方
        xref = 'paper',
        yref = 'paper',
        showarrow = FALSE,
        font = list(size = 14)
      ),
      # 第二个子图标题
      list(
        text = 'Bar Chart for Data Frame 2',
        x = 0.8,          # 对应第二个子图的中心位置
        y = 1.1,
        xref = 'paper',
        yref = 'paper',
        showarrow = FALSE,
        font = list(size = 14)
      )
    )
  )

• margin=0.1：为顶部标题预留足够空间，避免与图表内容重叠
• xref='paper'：基于整个画布的坐标系定位标题，需手动调整x值对应子图位置

方法2：为单个子图添加局部注释标题 #

在创建每个子图时，直接用annotations替代layout(title)，让标题与子图绑定，合并时自动保留：

# 为df1创建带注释标题的图表
plot1 <- plot_ly(df1, x = ~Category, y = ~Value, type = 'bar', name = 'Data Frame 1') %>%
  layout(
    xaxis = list(title = 'Category'),
    yaxis = list(title = 'Value'),
    annotations = list(
      list(
        text = 'Bar Chart for Data Frame 1',
        x = 0.5,          # 子图x轴的中心位置
        y = 1.1,
        xref = 'x domain',# 基于当前子图的x轴域定位
        yref = 'paper',
        showarrow = FALSE,
        font = list(size = 14)
      )
    )
  )

# 为df2创建带注释标题的图表
plot2 <- plot_ly(df2, x = ~Category, y = ~Value, type = 'bar', name = 'Data Frame 2') %>%
  layout(
    xaxis = list(title = 'Category'),
    yaxis = list(title = 'Value'),
    annotations = list(
      list(
        text = 'Bar Chart for Data Frame 2',
        x = 0.5,
        y = 1.1,
        xref = 'x domain',
        yref = 'paper',
        showarrow = FALSE,
        font = list(size = 14)
      )
    )
  )

# 合并子图，预留边距
facet_chart1 <- subplot(plot1, plot2, nrows = 1, margin = 0.1)

这种方法无需手动计算全局坐标，标题会自动对齐对应子图的中心，扩展性更强（比如增加子图数量时无需调整坐标）。

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