如何修改经ggplotly转换的分面ggplot对象的Plotly坐标轴标题？

当使用plotly::ggplotly()转换分面ggplot对象时，共享的坐标轴标题会被生成为布局注释（annotations），而非独立的轴标题元素，因此Plotly官方文档推荐的layout(yaxis = ...)方法无法直接修改这类标题。

问题复现代码 #

library(ggplot2)
library(plotly)
library(magrittr)

ex <- ggplot(data = iris, aes(x = Sepal.Width, y = Petal.Width)) +
  facet_grid(.~ Species)

# 常规方法修改无效
ggplotly(ex) %>% 
  layout(yaxis = list(title = list(text = "My title")))

标准解决方法 #

方法1：在ggplot阶段预先设置坐标轴标题

最直接的方式是在生成ggplot对象时就定义好坐标轴标题，转换为plotly对象后会自动保留该标题作为注释内容：

ex <- ggplot(data = iris, aes(x = Sepal.Width, y = Petal.Width)) +
  facet_grid(.~ Species) +
  ylab("My title") # 预先设置y轴标题

ggplotly(ex)

方法2：在已生成的plotly对象中定位注释修改

如果已经得到了plotly对象，可以通过访问布局的注释列表来修改目标标题。首先可以打印ex1$x$layout$annotations查看所有注释的细节，确认目标标题对应的索引或特征，再进行修改：

ex1 <- ggplotly(ex)

# 查看所有注释，确认目标注释的位置（示例中y轴标题是第2个注释）
# print(ex1$x$layout$annotations)

# 修改目标注释的文本
ex1$x$layout$annotations[[2]]$text <- "My title"
ex1

对于更复杂的分面布局（如行列均分面），可以通过过滤注释的属性（如xref、yref或原文本内容）来精准定位：

ex1 <- ggplotly(ex)

# 遍历注释，找到匹配y轴原标题的注释并修改
for (i in seq_along(ex1$x$layout$annotations)) {
  ann <- ex1$x$layout$annotations[[i]]
  # 匹配共享y轴注释的特征：xref为paper，且文本包含原y轴标题
  if (ann$xref == "paper" && grepl("Petal.Width", ann$text)) {
    ex1$x$layout$annotations[[i]]$text <- "My title"
  }
}

ex1

原因说明 #

ggplotly处理分面ggplot时，会将跨分面共享的坐标轴标题渲染为布局注释，而非绑定到单个轴的title属性。因此直接修改yaxis的标题不会生效，必须针对对应的注释元素进行调整。

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