animate_geography.R

library(plotly)
library(sf)
library(dplyr)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

N <- 10

# make random data
df <- lapply(1:N, function(x) nc) %>% bind_rows %>% 
           bind_cols(frame = rep(c(1:N), each = nrow(nc)),
                     value = rnorm(n = nrow(nc)*N))

plot_ly(df, 
        split = ~FIPS,
        frame = ~frame,
        color = ~value,
        showlegend = F, 
        alpha = 1
        )