能否用R的{wordcloud}或{wordcloud2}制作按年龄分帧的动态词云？

可以通过wordcloud配合animation包生成符合要求的GIF动图，也可以用wordcloud2制作交互式网页版动态词云，以下是两种方案的实现代码：

方案一：{wordcloud} + {animation} 生成GIF动图 #

该方案逐帧绘制每个年龄的词云，再合成GIF，精准控制每帧展示3秒：

library(wordcloud)
library(animation)
library(dplyr)

# 获取所有唯一年龄
ages <- sort(unique(df_all$age))
frame_count <- length(ages)

# 生成GIF：每帧停留3秒
saveGIF({
  for (current_age in ages) {
    # 筛选当前年龄的数据
    subset_df <- df_all %>% filter(age == current_age)
    # 绘制词云
    wordcloud(words = subset_df$definition,
              freq = subset_df$frequency * 100,
              scale = c(3, 0.5),
              random.order = FALSE,
              rot.per = 0.1,
              colors = brewer.pal(8, "Dark2"),
              main = paste("Age:", current_age, "months"))
  }
}, interval = 3,
   movie.name = "age_wordcloud.gif",
   width = 600, height = 600)

方案二：{wordcloud2} 生成交互式网页动画 #

wordcloud2是HTML交互式组件，结合JavaScript可实现每3秒切换一次词云，适合网页场景：

library(wordcloud2)
library(htmlwidgets)
library(dplyr)

ages <- sort(unique(df_all$age))
frame_count <- length(ages)

# 生成每个年龄对应的词云组件
cloud_widgets <- lapply(ages, function(current_age) {
  subset_df <- df_all %>% filter(age == current_age) %>% select(definition, frequency)
  wordcloud2(subset_df, size = 1.5, color = "random-dark", backgroundColor = "white")
})

# 添加JavaScript切换逻辑
htmlwidgets::saveWidget(
  onRender(
    cloud_widgets[[1]],
    sprintf('function(el, x) {
      var cloudElements = [%s];
      var currentIndex = 0;
      setInterval(function() {
        // 隐藏当前词云
        el.style.display = "none";
        // 切换到下一个
        currentIndex = (currentIndex + 1) %% %d;
        var targetEl = currentIndex === 0 ? el : cloudElements[currentIndex - 1];
        targetEl.style.display = "block";
      }, 3000);
    }', paste0(lapply(2:frame_count, function(i) "document.getElementById('", cloud_widgets[[i]]$elementId, "')"), collapse = ","), frame_count)
  ),
  file = "age_wordcloud_interactive.html",
  selfcontained = TRUE
)

补充：原gganimate代码的问题修复 #

如果仍想使用ggwordcloud+gganimate，修正参数错误后也能实现需求：

library(tidyverse)
library(ggwordcloud)
library(gganimate)

ages <- sort(unique(df_all$age))
frame_count <- length(ages)

gg <- df_all %>%
  ggplot(aes(label = definition, size = 100*frequency, group = age)) +
  geom_text_wordcloud() +
  theme_classic() +
  transition_states(age, transition_length = 0, state_length = 3) +
  labs(title = 'Age: {closest_state} months')

animate(gg, nframes = frame_count, duration = frame_count*3, fps = 1/3,
        width = 600, height = 600)
anim_save("ggwordcloud_animate.gif")

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