我可以在R中的另一个gif上添加gif吗？

我用

ggplot

和

gganimmate

生成了两个GIF。一个是世界地图，另一个是普通条形图。我试图在世界地图的视口中显示条形图，并以相同的速率设置它们的动画。因为它们都是使用相同的数据集创建的，所以我想我可以使用

gganimate

同时为它们设置动画

我想做这样的东西：

条形图使用

transition\u reveal（）

，而贴图使用

transition\u manual（）

，因此我无法将它们一起设置动画

有没有一种更简单的方法可以同时设置两个情节的动画？或者我可以让两者使用相同的

transition_*（）

函数吗

用于地图的代码：

plot_anim = ggplot(data = dat) +
  geom_sf(aes(geometry = geometry,
              fill = Deaths),
          alpha = 0.3) +
  geom_point(aes(x = X, y = Y,
                 size = ifelse(Confirmed==0, NA, Confirmed)),
             shape = 21,
             colour = "turquoise",
             alpha = 0.5,
             fill = "turquoise") +
  transition_manual(Date)

animate(p, renderer = gifski_renderer(loop = T))

用于条形图的代码：

plot_anim2 = ggplot(data = totals) +
  geom_bar(aes(x = Date, y = Number,
               fill = Type),
           stat = "identity",
           position = "stack") +
  transition_time(Date) +
  shadow_mark(past = T)  

animate(plot_anim2, renderer = gifski_renderer(loop = TRUE))

编辑：

一些数据：

> head(dat)
        Date             Country Confirmed Recovered Deaths      pop cases_per_mil          X         Y
1 2020-01-22         Afghanistan         0         0      0 29117000             0  66.004734  33.83523
2 2020-01-22             Albania         0         0      0  3195000             0  20.049834  41.14245
3 2020-01-22             Algeria         0         0      0 35423000             0   2.617323  28.15894
4 2020-01-22             Andorra         0         0      0    84082             0   1.560544  42.54229
5 2020-01-22              Angola         0         0      0 18993000             0  17.537368 -12.29336
6 2020-01-22 Antigua and Barbuda         0         0      0    89000             0 -61.794693  17.27750
                        geometry
1 MULTIPOLYGON (((74.89131 37...
2 MULTIPOLYGON (((20.06396 42...
3 MULTIPOLYGON (((8.576563 36...
4 MULTIPOLYGON (((1.706055 42...
5 MULTIPOLYGON (((14.19082 -5...
6 MULTIPOLYGON (((-61.71606 1...

>总目（总计）
#一个tibble:6x3
日期类型编号
1 2020-01-22确认555
2 2020-01-23确认654
3 2020-01-24确认941
4 2020-01-25确认1434
5 2020-01-26确认2118
6 2020-01-27确认2927

实现这一点的一种方法是将gif文件保存到www文件夹，并使用absolutePanel在一个空白的闪亮应用程序中显示它们。可以使条形图淡入淡出，而另一个不淡入淡出。下面是一个静态世界地图，其中两个图像显示在绝对面板中。当它们浮动时，您可以拖动它们并将其放置在所需的位置

---

实现这一点的一种方法是将gif文件保存到www文件夹，并使用absolutePanel在一个空白的闪亮应用程序中显示它们。可以使条形图淡入淡出，而另一个不淡入淡出。下面是一个静态世界地图，其中两个图像显示在绝对面板中。当它们浮动时，您可以拖动它们并将其放置在所需的位置

---

听起来是个有趣的问题。你有没有可能和我们分享一些数据？例如，“dat”和“totals”。很抱歉，我们添加了一些！您可以尝试这样做：，在命令行上使用ImageMagick，或者尝试R中的

magick

包在R中完成所有操作。不幸的是，此数据段不允许我们复制数据（请参见所有省略号…），您可以发布

dput（head（dat））

和

dput（head（totals））的完整输出吗

@Tjebo我在我的控制台中运行了它，但由于几何数据的原因，输出非常长。我会把它说出来，听起来是个有趣的问题。你有没有可能和我们分享一些数据？例如，“dat”和“totals”。很抱歉，我们添加了一些！您可以尝试这样做：，在命令行上使用ImageMagick，或者尝试R中的

magick

包在R中完成所有操作。不幸的是，此数据段不允许我们复制数据（请参见所有省略号…），您可以发布

dput（head（dat））

和

dput（head（totals））的完整输出吗

@Tjebo我在我的控制台中运行了它，但由于几何数据的原因，输出非常长。我会把它和

> head(totals)
# A tibble: 6 x 3
  Date       Type      Number
  <date>     <chr>      <int>
1 2020-01-22 Confirmed    555
2 2020-01-23 Confirmed    654
3 2020-01-24 Confirmed    941
4 2020-01-25 Confirmed   1434
5 2020-01-26 Confirmed   2118
6 2020-01-27 Confirmed   2927