如何使用gganimate显示轴的变化和矩形尺寸的变化？

问题描述

我正在尝试制作一个动画，该动画显示几个改变形状的矩形，而 绘图轴同时更改。在下面的代码中，我仅指定了两个数据状态以供数据在其间转换，但似乎存在三个动画状态：1.起始状态2.矩形尺寸更改的状态3.轴更改的状态。如何使轴和矩形同时改变？一个可复制的示例和结果图像如下。

library(tidyverse)
library(gganimate)

d <- tibble(
  x1 = c(1,3,1,5,4),x2 = c(2,4,6,6),y1 = c(1,3),y2 = c(2,2,5),t = c('a','a','b','b'),r = c(1,5)
)

d <- bind_rows(
  d %>% mutate(Time = 1),d %>% 
    mutate(Time =2,x1 = x1 / 2,x2 = x2 / 2)
)
  
ggplot() + 
  scale_x_continuous(name="x") + 
  scale_y_continuous(name="y") +
  geom_rect(data=d,mapping=aes(xmin=x1,xmax=x2,ymin=y1,ymax=y2,fill=t),color="black",alpha=0.5) +
  geom_text(data=d,aes(x=x1+(x2-x1)/2,y=y1+(y2-y1)/2,label=r),size=4) +
  transition_states(Time) + 
  view_step_manual(xmin = c(1,-6),xmax = c(6,12),ymin = c(1,-5),ymax = c(5,10))

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）