并排排列两个gganimate动图触发Invalid geometry argument报错

• 核心错误是for循环索引计算优先级错误：R中冒号:运算符优先级高于减法，你写的2:length(unique(berk_records$year)) - 12 实际运算逻辑是先生成2到n_year的整数序列，再给每个元素减12，会生成大量≤0的无效索引，用无效索引读取的帧本身就是异常对象，最终调用时就会抛出geometry参数错误。
• 次要风险点1：两个动画渲染时未统一宽高尺寸，gganimate默认会根据绘图内容自动调整尺寸，尺寸不一致的帧拼接后也可能触发解析错误。
• 次要风险点2：原代码导包时存在笔误，绘图包名称是ggplot2而非ggplot，可能埋下潜在运行风险。
• 次要风险点3：拼接完成的gif未设置帧延迟参数，容易出现显示异常。

# 加载依赖包
library('ggplot2')
library('gganimate')
library('magick')

# 统一计算总帧数，避免后续多处调用出现不一致问题
n_frames <- length(unique(df$year))

# 生成第一个动画
a <- ggplot(df, aes(...)) +
... # 剩余ggplot绘图逻辑
 transition_time(year)
# 生成第二个动画
a2 <- ggplot(df, aes(...)) +
... # 剩余ggplot绘图逻辑
transition_reveal(year)

# 渲染动画，统一指定宽高、帧数、帧率，避免尺寸不一致
anim1 <- animate(a, nframes = n_frames, fps = 3, width = 500, height = 400)
anim2 <- animate(a2, nframes = n_frames, fps = 3, width = 500, height = 400)

# 将gif转为magick对象
anim1_magic <- image_read(anim1)
anim2_magic <- image_read(anim2)

# 校验两个动画帧数一致，避免后续索引越界
stopifnot(length(anim1_magic) == length(anim2_magic), length(anim1_magic) == n_frames)

# 拼接两个动画
anim1_2 <- image_append(c(anim1_magic[1], anim2_magic[1]), stack = FALSE)
# 若业务逻辑确实需要截断到n_frames-12帧，将下方循环的n_frames改为(n_frames - 12)即可，必须加括号保证运算优先级正确
for(i in 2:n_frames) {
  combined <- image_append(c(anim1_magic[i], anim2_magic[i]), stack = FALSE)
  anim1_2 <- c(anim1_2, combined)
}

# 给合并后的gif设置帧延迟，和原帧率匹配
anim1_2 <- image_animate(anim1_2, fps = 3)

# 输出最终动画
print(anim1_2)

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