The code below shows an example of the animint package: an interactive animation can be defined as a list of ggplots with showSelected and clickSelects aesthetics.

library(animint)
data(generation.loci)
colormap <- c(blue="blue",red="red",ancestral="black",neutral="grey30")
ancestral <- subset(generation.loci,population==1 & generation==1)
ancestral$color <- "ancestral"
viz <- 
  list(ts=ggplot()+
       geom_line(aes(generation, frequency, group=population,
                     colour=color, showSelected=locus),
                 data=generation.loci)+
       make_text(generation.loci, 50, 1.05, "locus")+
       make_tallrect(generation.loci, "generation")+
       scale_colour_manual("population", values=colormap)+
       geom_point(aes(generation, frequency, showSelected=locus),
                  data=ancestral),
       loci=ggplot()+
       geom_point(aes(locus, frequency, colour=color,
                      showSelected=generation),
                  data=generation.loci, pch=21)+
       geom_point(aes(locus, frequency, colour=color),
                  data=ancestral, pch=21)+
       scale_colour_manual("population", values=colormap)+
       make_tallrect(generation.loci, "locus")+
       make_text(generation.loci, 35, 1, "generation"),
       duration=list(generation=1000),
       time=list(variable="generation", ms=2000))
gg2animint_knitr(viz) # use gg2animint(viz) instead if not inside knitr/Rmd.

• Click on the background of the time series plot on the left to change the selected generation.
• Click on the background of the locus dotplot on the right to change the selected locus.