Voici un exemple reproductible d'une intrigue statique, que je veux animer (je veux montrer comment se comporte un échantillonneur MCMC).
library(tidyverse)
library(gganimate)
set.seed(1234)
plot_data <- tibble(x=cumsum(rnorm(100)),
y=cumsum(rnorm(100)),
time=1:length(x))
ggplot(data=plot_data,
aes(x=y, y=x)) +
geom_point() + geom_line()
Ce que j'aimerais voir, c'est que les points soient visibles lorsqu'ils sont dessinés et un peu décolorés (c'est-à-dire que l'alpha passe, par exemple, de 1 à 0,3) par la suite, alors qu'il y aurait une ligne qui ne montrerait que l'histoire récente (et, idéalement, s'estompe montrant la histoire la plus récente la moins fanée et plus de quelques pas en arrière totalement disparue)
Ce qui suit réalise plus ou moins ce que je veux pour mes points (donc dans un sens, je veux juste ajouter des lignes de fondu à cela en connectant les derniers points - des points s'estompant plus lentement sur certaines images seraient encore plus agréables):
ggplot(data=plot_data,
aes(x=y, y=x)) +
geom_point() +
transition_time(time) +
shadow_mark(past = T, future=F, alpha=0.3)
Ce qui me pose problème, c'est comment ajouter deux comportements différents pour deux géomètres, par exemple le point et la ligne. Par exemple, ci-dessous, les points disparaissent (je ne veux pas qu'ils) et les lignes ne s'estompent pas (je veux qu'ils).
p <- ggplot(data=plot_data,
aes(x=y, y=x)) +
geom_point() +
transition_time(time) +
shadow_mark(past = T, future=F, alpha=0.3)
p + geom_line() +
transition_reveal(along = time) +
shadow_mark(past = T, future=F, alpha=0.3)