gganimate geom_bar中的“移动切片”效果

Question

很久以前，当gganimate包处于早期阶段时，我做了一个很酷的动画，只是为了好玩。 如您所见，数据切片正在移动和收集以填充geom_bar。 （gif由于敏感数据而被裁剪）

一些软件包更新后，我无法完全重现它。问题是我还没有原始代码，只是保存了GIF文件，所以我不太确定问题是否是由于gganimate的不同行为或我的愚蠢（我敢打赌后者）引起的。 / p>

这是我最近使用的空气质量数据。我肯定非常接近，但我被卡住了。 在这里这样问是因为有时有人做过类似的事情，即使我知道这不是一个结构很好的问题，也可以给我一个线索，但是，我对此表示歉意。

airquality %>%
  ggplot() +
  geom_bar(aes(x = Month, y = Temp , color = Month, fill = Month), position = "stack", stat = "identity") +
transition_reveal(Temp,Month) 

结果如下：