Colab R内核中如何直接展示已生成的GIF动图

在Colab使用R内核通过gganimate生成的分级统计地图GIF，本地下载后可正常播放但无法在Notebook页面内直接预览，可通过以下两种纯R环境方案实现页内展示，无需切换内核或调用跨语言接口：

• 方案1：落盘GIF转base64内嵌渲染
  保留原有绘图、动画生成、文件保存的全部代码不变，追加以下代码即可在代码单元输出位置显示动图：

  # 首次运行执行安装依赖，后续可注释
  install.packages(c("IRdisplay", "base64enc"))
  library(IRdisplay)
  library(base64enc)
  
  # 转码GIF为内嵌资源渲染
  gif_resource <- dataURI(file = "Gif_Tasa_Paro_desde_2002.gif", mime = "image/gif")
  display_html(paste0('<img src="', gif_resource, '" width="650">'))
  

  可修改width参数值调整Notebook内GIF的显示宽度，不会改变原GIF文件的画质与尺寸。
• 方案2：指定动画渲染器，生成即预览
  无需等待GIF文件保存到磁盘再读取，修改animate()函数的渲染器参数，生成的动画对象直接运行即可自动在页面渲染，调整后的动画生成代码段如下：

  # 首次运行执行安装依赖，后续可注释
  install.packages("magick")
  library(magick)
  
  GIF <- animate(GIF,
        width = 800, height = 800,
        nframes = 480, fps = 4,
        renderer = magick_renderer()) # 新增该行指定magick渲染器
  
  # 直接输出对象即可在Colab内显示动图
  GIF
  
  # 本地保存逻辑不受影响，可正常执行
  anim_save("Gif_Tasa_Paro_desde_2002.gif", GIF)
  

两种方案显示的动图帧率、色彩、动画效果和本地打开的原文件完全一致，不会出现压缩掉帧、色彩偏差问题。

原有参考实现代码：

GIF <- mapa_provincias %>%
  ggplot() + 
  geom_sf(aes(fill = Tasa_Paro/100), color= "black", size = 0.2) +  
  geom_sf(data = can_box) + 
  transition_states(Periodo, transition_length = 1, state_length = 1, wrap=TRUE) +
  labs( title = "Tasa de paro por provincias ({closest_state})",
        subtitle = "(%)",
        caption = "Fuente: INE",
        fill = "") + 
  xlab("Longitud") + ylab("Latitud") + 
  theme_minimal() + 
  theme(
    axis.line = element_blank(),
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.background = element_rect(fill= "aliceblue", color = NA),
    plot.title = element_text(size = 20, hjust = 0),
    plot.subtitle = element_text(size = 15, hjust = 0),
    plot.caption = element_text(size = 12, hjust = 1),
    legend.key.size = unit(1, "cm"),
    legend.text = element_text(color = "grey40", size = 10, hjust = 0),
    plot.margin = unit(c(0.5,2,0.5,1), "cm")) + 
  scale_fill_gradient(low = "lightyellow", high = "firebrick1", labels = scales::percent)

GIF <- animate(GIF,
        width = 800, height = 800,
        nframes = 480, fps = 4)

anim_save("Gif_Tasa_Paro_desde_2002.gif", GIF)

内容的提问来源于stack exchange，提问作者AlejandroDGR