library(tigris)
library(spdplyr)
library(leaflet)

states <- states(cb=T)

binpal <- colorBin(c("red", "yellow", "green"), -5:5, c(-5, -0.5, 0.5, 5), pretty = FALSE)


# Subset to less states for example
states_subset <- states[5:10,]

state_names <- states_subset$NAME

# Generate random measure data
set.seed(100)

df <- data.frame(cycle = 1, state_names, val =rnorm(6))

for (i in 2:5){df <- df %>% rbind(data.frame(cycle = i, state_names, val = rnorm(6)))}


# Join the data and produce the map 1 layer per cycle
state_merged <- states_subset %>% merge(df, by.x = "NAME", by.y = "state_names", duplicateGeoms = TRUE)

m <- leaflet() %>%
    addTiles()

for (i in 1:5){
    temp <- state_merged %>% filter(cycle == i)

    m <- m %>%
        addPolygons(
            data = temp,
            color = ~binpal(val),
            label = ~val,
            group = as.character(i)
        )

}

m <- m %>%
    addLayersControl(
    overlayGroups = as.character(1:5),
    options = layersControlOptions(collapsed = TRUE),
    position = "topleft"
) %>% hideGroup(as.character(1:4))

m