将多个ggplot动画组合在一起？

library(ggplot2)
library(gganimate)

# 创建第一个ggplot动画
plot1 <- ggplot(mtcars, aes(x = mpg, y = disp)) +
  geom_point() +
  transition_states(gear, transition_length = 2, state_length = 1) +
  enter_fade() +
  exit_fade()

# 创建第二个ggplot动画
plot2 <- ggplot(mtcars, aes(x = mpg, y = hp)) +
  geom_point() +
  transition_states(cyl, transition_length = 2, state_length = 1) +
  enter_fade() +
  exit_fade()

# 将两个动画组合在一起
combined_plot <- plot1 + plot2

# 播放组合后的动画
animate(combined_plot)