R/plots.R

In Texas-Policy-Lab/childcare_app: Child care supply and demand in Texas

theme_map <- function(...) {
  theme_minimal() +
    theme(
      axis.line = element_blank(),
      axis.text.x = element_blank(),
      axis.text.y = element_blank(),
      axis.ticks = element_blank(),
      axis.title.x = element_blank(),
      axis.title.y = element_blank(),
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      plot.background = element_rect(fill = "#FFFFFF", color = NA), 
      panel.background = element_blank(), 
      legend.background = element_rect(fill = "#FFFFFF", color = NA),
      panel.border = element_blank(),
      ...
    )
}

map_cbsa <- function(ccs_map_data = ccs_map_data,
                     covid_map_data = covid_map_data,
                     show_covid,
                     tt = "County: {county}<br>Seats per 100: {est_ccs}<br>COVID Cases: {Cases}<br>COVID Deaths: {Deaths}") {

  gg <- ggplot(ccs_map_data, aes(x = long, y = lat)) +
    ggiraph::geom_polygon_interactive(aes(group = subregion, fill = label, 
                                            tooltip =  glue::glue(tt)),
                                      color = "#f7f7f7"
                                        ) +
    coord_map() +
    theme_map() +
    labs(x = NULL,
         y = NULL,
         title = NULL,
         subtitle = "",
         caption = glue::glue(CAPTION, date = cases %>%
                                dplyr::ungroup() %>% 
                                dplyr::distinct(date) %>% 
                                dplyr::pull(date))) +
    theme(
      plot.title = element_text(hjust = 0.5, color = "#4e4d47"),
      plot.subtitle = element_text(hjust = 0.5, color = "#4e4d47",
                                   margin = margin(b = -0.1,
                                                   t = -0.1,
                                                   l = 2,
                                                   unit = "cm"),
                                   debug = F),
      plot.margin = unit(c(.5,.5,.2,.5), "cm"),
      panel.spacing = unit(c(-.1,0.2,.2,0.2), "cm"),
      panel.border = element_blank(),
      plot.caption = element_text(size = 12,
                                  hjust = 0,
                                  margin = margin(t = 0.2,
                                                  b = 0,
                                                  unit = "cm"),
                                  color = "#939184",
                                  family = "Arial"
                                  ),
      legend.title=element_text(size = 12, family="Arial"), 
      legend.text=element_text(size = 11, family="Arial")
    ) +
    scale_fill_manual(stringr::str_wrap("Child care seats per 100 children", 16),
                      values = c("#ee9391", "#b199bf", "#5c67b1"),
                      labels = levels(ccs_map_data$label),
                      drop = FALSE,
                      na.value = "grey")

  if(show_covid) {
    gg <- gg +
      geom_point(data = covid_map_data,
                 aes(x=long, y=lat, size = `Total # (COVID metrics)`),
                 alpha = .75, color = "#e54e4d")
  } else {
    gg <- gg
  }

  tooltip_css <- "background-color:#666666;border-radius: 3px;color:#ffffff; padding: 3px;"
  
  gg <- ggiraph::ggiraph(code = {print(gg)},
                         width_svg = 15, height_svg = 10,
                         tooltip_extra_css = tooltip_css
  )
}