如何在 R 中为 comparison.cloud 制作 gif？

Question

这里是R新手

我有一个词云，其中包含 7 个不同的 classes，使用 comparison.cloud()。我想做的是制作这样的 GIF：

第一帧：无显示。
第二帧：显示第一帧class
第 3 帧：显示第 1 + 第 2 classes
..... 等等，直到我到达显示每个 class 的最后一帧

我使用的包是：

library(reshape)
library(NLP)
library(tm)
library(RColorBrewer)
library(wordcloud)

我设法通过每次创建一个带有 wordcloud 的 PNG 并设置 classes 的文本颜色来创建 GIF 我不想显示与背景颜色相同（混乱的解决方案，但它是我能想到的最好的）。

我将此代码用于 GIF。

library(magick)
frames <- paste0("", 1:14, ".png")
m <- image_read(frames)
m <- image_animate(m, fps=0.5)
image_write(m, "wordcloud.gif")

我的问题是，由于我为每个 PNG 文件创建了一个新的词云，classes 中的词的位置被重新排列并且动画中的过渡看起来很糟糕。

有什么方法可以只使用一个词云来创建这个 GIF 动图吗？（例如一次获得一个class）

此外，抱歉阅读时间过长。

Answer 1

将你不想显示的词设为白色，并使用set.seed保持位置不变：

library(wordcloud)
library(magick)

words <- c(letters, LETTERS, 0:9)
freq <- seq(1, 1000, len = 62)
n <- length(words)

for (i in seq_len(n)) {
  png(paste0('test', i, '.png'))
  set.seed(1234)
  wordcloud(words, freq, colors = c(rep('black', i), rep('white', n - i)))
  dev.off()
}

frames <- paste0("test", seq_len(n), ".png")
m <- image_read(frames)
m <- image_animate(m, fps = 10)
image_write(m, "wordcloud.gif")

如何在 R 中为 comparison.cloud 制作 gif？

How can I make a gif for comparison.cloud in R?

animation

r

data-visualization

word-cloud