小编Fra*_*ank的帖子

我正在尝试显示随着时间的推移构建的直方图。它将从 1952 年的数据开始，然后每年更新直方图，并不断增长。

这条路似乎很笨拙，我想transition_reveal随着时间的推移慢慢地揭示更多的数据。这似乎不起作用。

假设我从这个开始：

library(gapminder)
library(tidyverse)
library(gganimate)

ggplot(gapminder, 
       aes(lifeExp, fill = fct_rev(factor(year)), group = fct_rev(factor(year)))) +
  geom_histogram(position = "stack", bins = 20) +
  transition_reveal(year)  

这很失败。

我可以将一些东西与 混合在一起transition_layer，如下所示：

ggplot(gapminder, aes(lifeExp, fill = fct_rev(factor(year)))) +
  geom_histogram(position = "stack", bins = 20, 
                 data = filter(gapminder, year<= 1952)) +
  geom_histogram(position = "stack", bins = 20, 
                 data = filter(gapminder, year<= 1957)) +
  geom_histogram(position = "stack", bins = 20, 
                 data = filter(gapminder, year<= 1962)) +
  geom_histogram(position = "stack", bins = 20, …