Используя этот пример из пакета вики на Github:
airq <- airquality
airq$Month <- format(ISOdate(2004,1:12,1),"%B")[airq$Month]
ggplot(airq, aes(Day, Temp, group = Month)) +
geom_line() +
geom_segment(aes(xend = 31, yend = Temp), linetype = 2, colour = 'grey') +
geom_point(size = 2) +
geom_text(aes(x = 31.1, label = Month), hjust = 0) +
transition_reveal(Month, Day) +
coord_cartesian(clip = 'off') +
labs(title = 'Temperature in New York', y = 'Temperature (°F)') +
theme_minimal() +
theme(plot.margin = margin(5.5, 40, 5.5, 5.5))
Производит что-то вроде:
Я хотел знать, есть ли способ определить паузу в анимации в определенных точках. Например, в День 10, затем в 20, затем, когда анимация закончится, перед повторным циклом. geom_reveal
нет state_length
аргументов state_length
или transition_length
поэтому я не уверен, возможно ли это.
Редактировать: автор пакета упоминает, что это возможно в твиттере, но я не знаю, на какой аргумент "раскрыть время" он ссылается.