如何使用 R Markdown 在 html 输出中创建动画

Question

这是我尝试过的事情的列表。

---
title: "test_gif"
output: html_document
---


``` {r, animation.hook='gifski', dev='png', interval=0.2}
library(gganimate)
ggplot(airquality, aes(Day, Temp, group = Month)) + 
  geom_line() + 
  transition_reveal(Month)
```

错误：从第 8-12 行退出 (test_gif.Rmd) hook_animation(options)(x, options) 中的错误：要使用 hook_gifski()，代码块必须生成“png”图像而不是“gif”。调用： ... hook_plot -> hook_plot_md_base -> hook_plot_html -> 执行停止

尽管我使用了此处提到的 dev = 'png' https://yihui.name/en/2018/08/gifski-knitr/，但我无法使其工作。

然后我尝试使用 FFmpeg 渲染器

---
title: "test_gif"
output: html_document
---


```{r, animation.hook='ffmpeg', interval=0.2}
library(gganimate)
ggplot(airquality, aes(Day, Temp, group = Month)) + 
  geom_line() + 
  transition_reveal(Month) -> p
animate(p)
```

错误：执行： ffmpeg -y -r 5 -i test_gif_files/figure-html/unnamed-chunk-1-%d.gif -b:v 1M -crf 10 test_gif_files/figure-html/unnamed-chunk-1.webm ffmpeg版本 4.2.1 版权所有 (c) 2000-2019 FFmpeg 开发人员使用 Apple LLVM 版本 10.0.0 (clang-1000.11.45.5) 构建配置： --prefix=/usr/local/Cellar/ffmpeg/4.2.1 --enable -shared --enable-pthreads --enable-version3 --enable-avresample --cc=clang --host-cflags='-I/Library/Java/JavaVirtualMachines/adoptopenjdk-12.0.1.jdk/Contents/Home/包括-I/Library/Java/JavaVirtualMachines/adoptopenjdk-12.0.1.jdk/Contents/Home/include/darwin' --host-ldflags= --enable-ffplay --enable-gnutls --enable-gpl --enable -libaom --enable-libbluray --enable-libmp3lame --enable-libopus --enable-librubberband --enable-libsnappy --enable-libtesseract --enable-libtheora --enable-libvidstab --enable-libvorbis --enable -libvpx --enable-libx264 --enable-libx265 --enable-libxvid --enable-lzma --enable-libfontconfig --enable-libfreetype --enable-frei0r --enable-libass --enable-libopencore-amrnb - -enable-libopencore-amrwb --enable-libopenjpeg --enable-librtmp --enable-libspeex --enable-videotoolbox --disable-libjack --disable-indev=jack --enable-libaom --enable-libsoxr libavutil 56 . 31.100 / 56. 31.100 libavcodec 58. 54.100 / 58. 54.100 libavformat 58. 29.100 / 58. 29.100 libavdevice 58. 8.100 / 58. 8.100 libavfilter 7. 57.100 / 7. 57.100 libav重新采样 4.0.0 / 4.0.0 libswscale 5.5.100 / 5.5.100 libswresample 3.5.100 / 3.5.100 libpostproc 55.5.100 / 55.5.100 test_gif_files/figure-html/unnamed-chunk-1-%d.gif：没有这样的文件或目录 |... ...................................................... …………| 100%普通文本，无R代码

输出文件：test_gif.knit.md

/usr/local/bin/pandoc +RTS -K512m -RTS test_gif.utf8.md --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash+smart --output test_gif.html --email-obfuscation none --self-contained --standalone --section-divs --template /Library/Frameworks/R.framework/Versions/3.5/Resources/library/rmarkdown/rmd/h/default.html --no-highlight --变量highlightjs=1 --变量'主题：bootstrap'--include-in-header /var/folders/pv/cs874rmn7dj9n08xdyc7s3nm0000gn/T//RtmpOqkC3V/rmarkdown-str28173033d049.html --mathjax --variable'mathjax-url：https://mathjax.rstudio .com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML ' --lua-filter /Library/Frameworks/R.framework/Versions/3.5/Resources/library/rmarkdown/rmd/lua/pagebreak.lua -- lua-filter /Library/Frameworks/R.framework/Versions/3.5/Resources/library/rmarkdown/rmd/lua/latex-div.lua 文件 test_gif_files/figure-html/unnamed-chunk-1.webm 在资源路径中找不到错误：pandoc 文档转换失败，错误 99 执行停止

然后我按照这个方法，使用 gifski::save_gif 保存 gif，然后使用 include_graphics 在后续块中显示。 https://community.rstudio.com/t/make-an-rstudio-notebook-inline-animation-that-loops-with-gganimate/27489/2

---
title: "test_gif"
output: html_document
---


```{r}
library(gganimate)
library(gifski)
ggplot(airquality, aes(Day, Temp, group = Month)) + 
  geom_line() + 
  transition_reveal(Month) -> p
animate(p)
```

```{r, animation.hook='gifski', interval = 0.2}
p
```

错误（相同）：从第 18-19 行退出（test_gif.Rmd） hook_animation(options)(x, options) 中的错误：要使用 hook_gifski()，代码块必须生成“png”图像而不是“gif”。调用： ... hook_plot -> hook_plot_md_base -> hook_plot_html -> 执行停止

我的最终目标是在最终的 html 文档中创建动画，而不在中间生成任何临时文件。即使有任何其他替代方法可以完成这项工作，我也会很高兴。

Answer 1

使用gganimate包，您不需要设置 chunk 选项animation.hook。这就够了：

```{r, dev='png', interval=0.2}
library(gganimate)
ggplot(airquality, aes(Day, Temp, group = Month)) + 
  geom_line() + 
  transition_reveal(Month)
```