如何在ggplotly中保留ggplot2标题的颜色编码效果？

问题根源 #

ggtext::element_markdown()是基于ggplot本地渲染机制实现的标题样式，而ggplotly()转换时不会保留这种markdown/HTML样式解析逻辑，会将标题转为纯文本，导致颜色格式丢失。

解决方案 #

利用plotly本身支持HTML格式标题的特性，在转换为交互图后，通过layout()手动设置带颜色的HTML标题。你已经用glue生成了符合HTML格式的标题文本，直接复用即可：

library(ggplot2)
library(dplyr)
library(plotly)
library(ggtext)
library(glue)

mtcolors<-c("springgreen4", "darkorange3", "purple")
names(mtcolors)<-c("4 cyl", "6 cyl", "8 cyl")

mt_title_text <- glue(
  'MPG vs HP -',  
  '<span style = "color:{mtcolors["4 cyl"]}">**4 cyl**</span>', 
  'vs.',
  '<span style = "color:{mtcolors["6 cyl"]}">**6 cyl**</span>',
  'vs.',
  '<span style = "color:{mtcolors["8 cyl"]}">**8 cyl**</span>',
  .sep = ' '
)

# 生成基础ggplot对象
p <- mtcars |>
  mutate(cyl = as.factor(cyl)) |>
  ggplot(aes(x=mpg, y=hp, color=cyl)) +
  geom_point(size=3) +
  theme_bw() +
  scale_color_manual(values=mtcolors) +
  labs(title = mt_title_text) +
  theme(
    plot.title = ggtext::element_markdown(),
    panel.grid.minor = element_blank(),
    legend.position = 'none'
  )

# 转换为ggplotly并设置带颜色的标题
ggplotly(p) |>
  layout(
    title = list(
      text = mt_title_text,
      x = 0.05, # 与原ggplot标题左对齐保持一致
      xanchor = "left",
      font = list(size = 14) # 可按需调整字体大小
    )
  )

说明 #

• 该方案复用了你原本生成的HTML格式标题文本，无需额外重构内容
• 通过layout()设置的标题会覆盖ggplot对象中的标题，确保交互图显示带颜色的样式
• 若需要调整标题位置、字体大小等细节，可在title参数列表中添加对应配置

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