在R中合并HTML组件与Plotly图时如何保留颜色刻度？

在R语言中为交互式Plotly图表上方添加HTML文本时，尝试通过manipulateWidget::combineWidgets合并文本组件与图表组件以精准控制间距，但合并后原有的颜色刻度被替换，图例与图表颜色不匹配；同时使用Plotly的layout参数添加文本时，多行文本的间距难以控制，还会出现文本覆盖图表区域的问题。需要解决颜色不匹配问题，或找到其他添加HTML文本的可行方式。

combineWidgets在合并组件时会重新渲染Plotly图表，导致从ggplot转换而来的颜色刻度（如scale_fill_viridis_c）未被正确保留，底层颜色映射被重置，最终造成图例与图表颜色脱节。

需要手动提取并重新应用Plotly图表的颜色配置，确保合并后颜色映射不丢失：

DF <- data.frame(Month=c(5:8), Year=rep(2024,4), Value=c(3,5,1,8))

Pop <- ggplot(DF)+
  geom_tile(aes(x=Month, y=Year, fill=Value))+
  theme_minimal()+ theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  scale_fill_viridis_c(name="Name")

Pop_ly <- Pop %>%
  ggplotly(., tooltip="text") %>%
  layout(xaxis = list(fixedrange = TRUE), yaxis = list(fixedrange = TRUE)) %>%
  config(displayModeBar = F)

# 提取原图表的颜色刻度配置
color_config <- list(
  colorbar = Pop_ly$x$layout$coloraxis$colorbar,
  cmin = Pop_ly$x$layout$coloraxis$cmin,
  colorscale = Pop_ly$x$layout$coloraxis$colorscale
)

# 合并组件
combined <- manipulateWidget::combineWidgets(list = list(HTML("TEST"), Pop_ly), rowsize=c(1,5))

# 重新将颜色配置应用到合并后的图表
combined$widgets[[2]]$x$layout$coloraxis <- color_config

combined

直接在Plotly的layout中使用annotations添加多行HTML文本，通过调整边距和文本位置避免覆盖问题，同时完全保留颜色刻度：

DF <- data.frame(Month=c(5:8), Year=rep(2024,4), Value=c(3,5,1,8))

Pop <- ggplot(DF)+
  geom_tile(aes(x=Month, y=Year, fill=Value))+
  theme_minimal()+ theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  scale_fill_viridis_c(name="Name")

Pop_ly <- Pop %>%
  ggplotly(., tooltip="text") %>%
  layout(
    xaxis = list(fixedrange = TRUE),
    yaxis = list(fixedrange = TRUE),
    # 添加多行HTML文本
    annotations = list(
      list(
        x = 0.5, y = 1.2,  # y值大于1，将文本置于图表上方
        xref = "paper", yref = "paper",
        text = "<b>多行测试标题</b><br>第二行说明文本<br>第三行补充内容",
        showarrow = FALSE,
        align = "center",
        xanchor = "center",
        yanchor = "top"
      )
    ),
    # 调整顶部边距，为文本预留空间
    margin = list(t = 120)  # 根据文本行数调整t值大小
  ) %>%
  config(displayModeBar = F)

Pop_ly

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