添加文本后Plotly R交互式直方图动画闪烁问题求助

我尝试使用R语言的Plotly包制作一款逐帧为直方图的交互式图形，希望在每帧顶部添加文本。以下是实现需求的最小示例代码：

library(dplyr)
library(plotly)

dat <- tibble(x = rnorm(10000,0,1), f = rep(1:10, each = 1000))
dat2 <- tibble(x = -3, y = 70, f = seq(1,10), txt = paste0("frame ", seq(1,10)))

plot_ly() %>%
  add_trace(data = dat,
            x = ~x,
            frame = ~f,
            type = "histogram",
            showlegend = FALSE) %>%
  add_trace(data = dat2,
            x = ~x,
            y = ~y,
            frame = ~f,
            type = "scatter",
            mode = "text",
            text = ~txt,
            showlegend = FALSE) %>%
  animation_opts(
    transition = 0,
    frame = 100,
  ) %>%
  config(staticPlot = TRUE)

添加文本图层后，动画开始出现闪烁现象，移除第二个add_trace则无此问题。请问该现象的原因是什么，如何解决？

• 两个独立的trace都绑定了frame参数，动画切换时Plotly需要同时更新直方图和文本两个图层。由于直方图是基于数据计算的统计图形，文本是静态标注，二者的渲染逻辑和更新时序不同，导致画布重绘时出现视觉上的闪烁。
• 文本trace的逐帧更新会触发额外的画布重绘流程，而单独使用直方图trace时，Plotly的动画优化机制可以更高效地完成单图层更新，不会出现闪烁。

推荐使用**布局注释（annotations）**代替文本trace来实现逐帧文本显示，这样可以避免多trace更新带来的闪烁问题，具体修改代码如下：

library(dplyr)
library(plotly)

dat <- tibble(x = rnorm(10000,0,1), f = rep(1:10, each = 1000))
# 准备各帧的注释配置
frame_annotations <- lapply(1:10, function(i) {
  list(
    data = list(list(x = ~x, frame = ~f, type = "histogram", showlegend = FALSE)),
    layout = list(
      annotations = list(
        list(
          x = -3, y = 70,
          text = paste0("frame ", i),
          showarrow = FALSE,
          xref = "x", yref = "y"
        )
      )
    )
  )
})

plot_ly(data = dat, x = ~x, frame = ~f, type = "histogram", showlegend = FALSE) %>%
  animation_opts(transition = 0, frame = 100) %>%
  config(staticPlot = TRUE) %>%
  # 替换默认的动画帧为带注释的配置
  animation_frames(frame_annotations)

核心思路是把文本放在布局层而非独立trace中，动画更新时只需调整布局注释，直方图的更新和布局更新可以更同步，从根源消除闪烁。

另外也可以尝试调整animation_opts中的transition参数（比如设为50而非0），让两个图层的更新有短暂过渡，但这种方法不如注释法彻底。

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