Vorrei campionare i punti da una distribuzione normale, quindi creare un dotplot uno per uno usando il gganimate
pacchetto fino a quando il frame finale mostra il dotplot completo.
Una soluzione che funziona per set di dati più grandi ~ 5.000 - 20.000 punti è essenziale.
Ecco il codice che ho finora:
library(gganimate)
library(tidyverse)
# Generate 100 normal data points, along an index for each sample
samples <- rnorm(100)
index <- seq(1:length(samples))
# Put data into a data frame
df <- tibble(value=samples, index=index)
Il df si presenta così:
> head(df)
# A tibble: 6 x 2
value index
<dbl> <int>
1 0.0818 1
2 -0.311 2
3 -0.966 3
4 -0.615 4
5 0.388 5
6 -1.66 6
Il grafico statico mostra il dotplot corretto:
# Create static version
plot <- ggplot(data=df, mapping=aes(x=value))+
geom_dotplot()
Tuttavia, la gganimate
versione no (vedi sotto). Mette solo i punti sull'asse x e non li impila.
plot+
transition_reveal(along=index)
Qualcosa di simile a questo sarebbe l'ideale: credito: https://gist.github.com/thomasp85/88d6e7883883315314f341d2207122a1