In tdhock/animint2: Animated Interactive Grammar of Graphics

Grab the state babynames data. Here we examine gender difference for babyname $i$ in state $j$ during year $k$ which is defined as (number of male babys named $i$ - number of female babys named $i$)/number of applicants in year j}

Let $m_{ijk}$ be the number of male babys with name $i$ in state $j$ during year $k$. Let $f_{ijk}$ be the number of female babys with name $i$ in state $j$ during year $k$. Let $n_{k}$ be the number of "applicants" in year $k$.

Define $d_{ijk} = (m_{ijk} - f_{ijk})/n_{k}$. In english, $d_{ijk}$ is a measure of the gender

#devtools::install_github("cpsievert/babynames")

library(ggplot2Animint)
library(animint2)
library(dplyr)
library(magrittr)
data(namesbystate, package = "babynames")

inputPanel(
  namesbystate %>% select(name) %>% unique %>% extract(,1) %>%
    selectizeInput("babyname", label = "Choose a babyname:", choices = ., selected = "Mary"),

  namesbystate %>% select(year) %>% unique %>% extract(,1) %>% rev %>%
    selectizeInput("year", label = "Choose a year:", choices = .)
)

getDat <- reactive({
  babyname <- input$babyname
  year <- input$year
  namesbystate %>% filter(name == babyname) %>% filter(year == year) %>%
    arrange(region, year, sex) %>% group_by(region, year) %>% 
    summarise(diff = if (length(prop) == 2) diff(prop) else prop)
})

renderPlot({
  map_data("state") %>% 
    tbl_df() %>% left_join(getDat()) %>%
  ggplot() + 
    geom_polygon(aes(x = long, y = lat, group = group, fill = diff), colour = "grey") +
    scale_fill_gradient2(midpoint = 0) +
    ggtitle(paste("Gender difference by state for", input$babyname, "in", input$year))
})

Throw out that don't occur in both genders?

ggplot() + 
  geom_polygon(aes(x = long, y = lat, group = group, fill = diff), colour = "grey") +
  scale_fill_gradient2(midpoint = 0) +
  ggtitle(paste("Gender difference by state for", input$babyname, "in", input$year))


viz <- list(map = map)

animint2dir(viz)