Постройте статический и анимированный линейный график на одном графике с графиком в R

Question

Моя цель состоит в том, чтобы создать 2 линейных графика в одной и той же области графика, однако 1 должен быть статичным (всегда отображается), а другой - анимированным (он будет отображаться, как только пользователь нажимает кнопку «Воспроизвести», как на графике). обеспечивает). Концепция заключается в том, что у нас есть линейный график с фактическими значениями, которые всегда отображаются, а анимированный график будет соответствовать наблюдениям, показывая, насколько хорошо они соответствуют фактической линии.

То, чего я достиг до сих пор, - это создание обеих линий анимированным образом, однако, как упоминалось ранее, я хочу, чтобы наблюдения с Type=="Actuals" были статичными, а остальные (Type=="Fitted") - только анимированными. Пожалуйста, обратитесь к моему текущему сценарию ниже.

Исходный кадр рабочих данных data2, который содержит действительные и установленные значения в унифицированном виде; с колоннами RequCreatedFull-Date(as POSIXct), Requs_Qnt_pm(as num), Type(as Factor-indicates whether the record refers to 'actual' or 'fitted' observation), date(as num), где
date=(year(RequCreatedFull_Date)+(month(RequCreatedFull_Date)-1)/12).

library(plotly)
library(dplyr)
library(lubridate)

#function definition for to be framed variable manipulation
accumulate_by <- function(dat, var) {
  var <- lazyeval::f_eval(var, dat)
  lvls <- plotly:::getLevels(var)
  dats <- lapply(seq_along(lvls), function(x) {
   cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
  })
  dplyr::bind_rows(dats)
}

#creation of to-be-used for framing variable
data2mod <- data2 %>%
  accumulate_by(~date)


#graph creation
my_graph<-data2mod %>%
             plot_ly(
               x = ~date, 
               y = ~Requs_Qnt_pm,
               split = ~Type,
               frame = ~frame,
               type = 'scatter',
               mode = 'lines', 
               line = list(simplyfy = F)
            ) %>% 
             layout(
                xaxis = list(
                  title = "x axis title",
                  zeroline = F
               ),
                yaxis = list(
                  title = "y axis title",
                  zeroline = F
               )
            ) %>% 
            animation_opts(
              frame = 100, 
              transition = 0, 
              redraw = FALSE
            ) %>%
            animation_slider(
              hide = T
            ) %>%
            animation_button(
               x = 1, xanchor = "right", y = 0, yanchor = "bottom"
            )

UPDATE: data2 стол

#preparing 2 data tables for the plot (got to be merged with new Type var indicating actuals and fit observations)
agg_acts_rags_rf_ama2<-data.frame(agg_acts_rags_rf_ama, Type="Actuals", date=year(agg_acts_rags_rf_ama$RequCreatedFull_Date)+(month(agg_acts_rags_rf_ama$RequCreatedFull_Date)-1)/12)
agg_fits_rags_rf_ama2<-data.frame(agg_fits_rags_rf_ama, Type="Fitted", date=year(agg_fits_rags_rf_ama$RequCreatedFull_Date)+(month(agg_fits_rags_rf_ama$RequCreatedFull_Date)-1)/12)

names(agg_acts_rags_rf_ama2)[2]<-"Requs_Qnt_pm"
names(agg_fits_rags_rf_ama2)[2]<-"Requs_Qnt_pm"

#unifying the tables
data2<-rbind(agg_acts_rags_rf_ama2, agg_fits_rags_rf_ama2)

agg_acts_rags_rf_ama и agg_fits_rags_rf_ama содержат только 2 столбца, RequCreatedFull_Date и столбец количества