r - ggplotlyアニメーションに注釈を追加するにはどうすればよいですか?

Question

rでの割り当て用にアニメーション化されたプロットグラフを作成しています。ここでは、いくつかのモデルをさまざまな数の観測値と比較しています。現在のモデルの RMSE を示す注釈を追加したいと思います。これは、スライダーと共に変化するテキストが必要であることを意味します。それを行う簡単な方法はありますか？

これは、GitHub に保存されている私のデータセットです。RMSE: dataで作成された変数が既に存在します。

ベースの ggplot グラフィックは次のとおりです。

library(tidyverse)
library(plotly)
p <- ggplot(values_predictions, aes(x = x))  +
    geom_line(aes(y = preds_BLR, frame = n, colour = "BLR")) +
    geom_line(aes(y = preds_RLS, frame = n, colour = "RLS")) + 
    geom_point(aes(x = x, y = target, frame = n, colour = "target"), alpha = 0.3) + 
    geom_line(aes(x = x, y = sin(2 * pi * x), colour = "sin(2*pi*x)"), alpha = 0.3)  +
    ggtitle("Comparison of performance) + 
    labs(y = "predictions and targets", colour = "colours")

これは plotly に変換され、アニメーションを Plotly グラフに追加しました。

plot <- ggplotly(p) %>%
        animation_opts(easing = "linear",redraw = FALSE)
plot

ありがとう！