Переходы в конечном итоге привязаны к каждой точке данных group
.В вашем коде все точки данных Дня 1 совместно используют группу, поэтому они появляются из старых.
Присвойте точкам свою группу (например, с помощью group = interaction(Month, Day)
), и она должна работать.
a <- ggplot(airquality, aes(Day, Temp,
group = interaction(Month, Day))) +
geom_point(color = 'red', size = 1) +
transition_time(Month) +
shadow_mark(colour = 'black', size = 0.75) +
enter_fade() # I liked the look of this, but fine to leave out
animate(a, nframes = 100)