使用ggplotly()展示ggplot图形时subtitle副标题丢失如何解决？

原因说明 #

ggplotly() 默认不支持直接转换ggplot2中通过labs()设置的subtitle、caption参数，因此会出现转换后副标题、底部说明丢失的情况。

解决方法 #

方法1：通过plotly的layout()函数手动设置标题组 #

这是灵活度最高的方案，可分别控制主标题、副标题、说明的样式、位置：

library(ggplot2)
library(plotly)
# 基础绘图逻辑不变
p <- ggplot(ToothGrowth, aes(x = factor(dose), y = len)) + 
  geom_boxplot() +
  labs(title = "Effect of Vitamin C on Tooth Growth",
       subtitle = "Plot of length by dose",
       caption = "Data source: ToothGrowth")

# 直接从ggplot对象提取已设置的标题文本，无需重复输入
main_title <- p$labels$title
sub_title <- p$labels$subtitle
caption <- p$labels$caption

# 转换为plotly对象后补充布局配置
ggplotly(p) %>% 
  layout(
    title = list(
      # 用HTML标签实现换行、调整副标题字号
      text = paste0(main_title, "<br><sup>", sub_title, "</sup>"),
      y = 0.98 # 微调标题整体垂直位置，避免和绘图区域重叠
    ),
    # 配置底部说明文本
    annotations = list(
      list(
        x = 1, y = -0.15, 
        text = caption, 
        showarrow = FALSE, 
        xref = "paper", yref = "paper", 
        xanchor = "right",
        font = list(size = 10, color = "grey")
      )
    )
  )

可根据实际绘图的尺寸调整上述位置参数，避免文本被截断。

方法2：直接合并标题文本到ggplot的title参数 #

如果不需要单独控制副标题样式，可直接在ggplot的title中用换行符拼接副标题，ggplotly()可自动识别换行：

library(ggplot2)
library(plotly)
p <- ggplot(ToothGrowth, aes(x = factor(dose), y = len)) + 
  geom_boxplot() +
  labs(
    # 用\n拼接主标题和副标题
    title = "Effect of Vitamin C on Tooth Growth\nPlot of length by dose",
    caption = "Data source: ToothGrowth"
  )
ggplotly(p)

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