你应该使用add_annotations而不是add_trace。你可以稍微修改@kat here编写的代码，以确保文本在图的每一帧中平滑显示。在这种情况下，你必须确保每一帧的迭代都接受你的注解 Dataframe 的输入。下面是一些可复制的代码：

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)))

p1 <- plot_ly() %>%
  add_trace(data = dat,
            x = ~x,
            frame = ~f,
            type = "histogram",
            showlegend = FALSE) %>%
  animation_opts(
    transition = 0,
    frame = 100
  ) %>%
  config(staticPlot = TRUE)

p2 <- plotly_build(p1)

lapply(1:nrow(dat2), 
       function(i){
         annotation = list(
           type = "text",
           x = dat2[i,]$x,
           y = dat2[i,]$y,
           xref = "x",
           yref = "y",
           showarrow = F,
           text = dat2[i, ]$txt) 
         p2$x$frames[[i]]$layout <<- list(annotations = list(annotation)) 
       })

p2

创建于2023-03-28带有reprex v2.0.2