R 使用gganimate设置绘图块的动画

我试图在某个区域内制作一个时间序列的动画。我希望功能区从

0

到

200

的部分显示在开始处。我还希望功能区的下一个间隔仅在线条进入该区域时完全显示。 然而，我不知道如何结合这两个动画

我当前的尝试同时显示两种动画：

library(gganimate)
library(ggplot2)

drift <- c(rep(0.003, 200), rep(.001, 300), rep(.006, 500))
sig2 <- 0.001
## time series
set.seed(1)
x <- rnorm(n=length(t) , sd=sqrt(sig2)) + drift 
## time
t1 <- 1:1000

## limits for ribbon
up <- 3 * sig2 * t1 + cumsum(drift) + sd(x[1:300]) 
low <- -3 * sig2 * t1 + cumsum(drift) - sd(x[1:300])

ribbonframe <- cbind(up, low, t1)
ribbonframe <- data.frame(as.matrix(ribbonframe))
frame2 <- data.frame(cbind(t1, x)) 

pl2 <- ggplot() +
  ## plot ribbon
  geom_ribbon(data=ribbonframe,aes(x=t1, ymin=low, ymax=up), alpha=0.3) + 
  ## plot the path
  geom_line(data=frame2,aes(x=t1, y=x), size=2) + 
  ## no labels on any axes except time
  theme(axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank())
pl2
## animate pl2 with respect to time
tr <- pl2 + transition_reveal(t1) 
tr

库（gganimate）
图书馆（GG2）
漂移嘿@Lukas什么是sig2？嘿，是.001因子，我加进去了。嘿@Lukas什么是sig2？嘿，是.001因子，我加进去了。