我有一个数据框，该数据框具有给定流程的 43个版本（列），并且具有唯一的x轴（DOY），但是出于示例的原因，我们假设我只有5个版本：

df<-data.frame(DOY = 1:100,replicate(5,runif(100))) 

   DOY           X1          X2          X3         X4          X5
1    1  0.229167049  1.14301363  1.51866596  0.3975288  0.08408749
2    2 -1.201152742  0.78310939  0.73386803  1.0642240  0.08889227
3    3  0.855091117 -0.20336769 -1.43918386 -1.1315914  1.11606984
4    4 -2.503215715 -0.49935691  1.62382889 -2.4111611  2.08002344
5    5  1.060241917 -0.07352165 -0.09702405  0.2453719 -1.49648551
6    6  0.770752629  1.57174443 -1.11631512 -2.0473207  2.69395156
7    7  1.408792920  1.03667735 -0.42335742 -0.2194104 -0.23139360
8    8  0.322702898  0.27546292 -0.29637931 -1.5397543 -0.31331059
9    9 -1.579402811 -0.29110898  0.85435901  0.1051316  0.94311947
10  10 -0.004535567  0.40224405 -0.92110478 -1.2431362  0.46812342

我想用以下输出创建一个ggplot：

 g[![enter image description here][1]][1]gplot(df,aes(x=DOY)) +
  geom_line(aes(y=X1,color = "A")) + 
  geom_line(aes(y=X2,color = "B")) + 
  geom_line(aes(y=X3,color = "C")) + 
  geom_line(aes(y=X4,color = "D")) +
  geom_line(aes(y=X5,color = "E")) 

我的目标是首先实现以下目标：

最终获得具有这种效果的动画：

来源：https://robjhyndman.com/hyndsight/ftsviz/