r - 使用 ggplot 创建动画

Question

devtools::install_github('thomasp85/gganimate')
library(gganimate)
library(ggplot)

set.seed(123)
rain.data <- data.frame(ID = 1:50, year = rep(1981, times = 365*50),
                        doy = rep(1:365, times = 50), rain = rnorm(365*50)) 

一天，如果我想绘制所有的雨值ID

rain.data %>% dplyr::filter(doy == 1) %>% ggplot(., aes(rain)) + geom_histogram()

如果想为一年中的每一天创建下雨动画，我这样做了：

ggplot(rain.data, aes(rain)) +  geom_histogram(show.legend = FALSE) +
labs(title = 'Doy: {frame_time}', x = 'Rain', y = '# Count') +
transition_time(doy) 

这看起来不正确，绝对不是直方图。我究竟做错了什么？