Oto odtwarzalny przykład wykresu statycznego, który chcę animować (chcę pokazać, jak zachowuje się sampler 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()
To, co chciałbym zobaczyć, to punkty widoczne po ich narysowaniu, a następnie nieco wyblakłe (tj. Alfa zmienia się z np. 1 na 0,3), podczas gdy byłaby linia, która pokazuje tylko najnowszą historię (i idealnie zanika pokazując najnowsza historia najmniej wyblakła i więcej niż kilka kroków wstecz całkowicie zniknęła).
Następujące osiąga mniej więcej to, co chcę dla moich punktów (więc w pewnym sensie chcę po prostu dodać linie zanikające do tego połączenia ostatnich kilku punktów - punkty zanikające wolniej w niektórych ramkach byłyby jeszcze ładniejsze):
ggplot(data=plot_data,
aes(x=y, y=x)) +
geom_point() +
transition_time(time) +
shadow_mark(past = T, future=F, alpha=0.3)
Mam problem z dodaniem dwóch różnych zachowań dla dwóch geom, np. Punktu i linii. Np. Poniżej punkty znikają (nie chcę ich), a linie nie znikają (chcę, żeby).
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)