如何遍历2个分类变量的唯一组合在R中批量生成动画气泡图？

架构老林

2026-9-28

R语言批量生成多组合动画气泡图实现方案

首先提前加载所需依赖包：

library(ggplot2)
library(gganimate)

实现逻辑

先提取CV1和CV2两个分类变量的所有唯一组合
遍历每一组组合，筛选对应数据子集
自动跳过仅含1个唯一ID的子集
按组合生成唯一文件名保存动画

完整可运行代码

# 提取CV1、CV2的所有唯一组合
combos <- unique(DF[, c("CV1", "CV2")])

# 循环遍历所有组合
for (i in 1:nrow(combos)) {
  # 取出当前组合的CV1、CV2取值
  curr_cv1 <- combos$CV1[i]
  curr_cv2 <- combos$CV2[i]
  
  # 筛选当前组合对应的数据子集
  sub_df <- subset(DF, CV1 == curr_cv1 & CV2 == curr_cv2)
  
  # 忽略仅存在一个唯一ID的情况
  if (length(unique(sub_df$ID)) < 2) {
    next
  }
  
  # 生成动画气泡图
  p <- ggplot(sub_df, aes(X, Y, color = ID)) +
    geom_point() +
    scale_x_log10() +
    theme_bw() +
    # 标题可自定义，当前写法会自动标注当前所属的CV1、CV2组合
    labs(title = paste0("CV1: ", curr_cv1, " | CV2: ", curr_cv2, " | frameId: {frame_time}"), 
         x = 'X', y = 'Y') +
    transition_time(frameId) +
    ease_aes('linear')
  
  # 渲染动画
  anim_result <- animate(p)
  
  # 生成唯一文件名并保存
  save_name <- paste0("Plot_", curr_cv1, "_", curr_cv2, ".gif")
  anim_save(save_name, animation = anim_result)
}