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()

1 年の毎日の雨のアニメーションを作成したい場合は、次のようにしました。

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

これは正しくないように見え、間違いなくヒストグラムではありません。私は何を間違っていますか？