01-rough-draft.qmd

---
title: "Polling Places Report - Alabama"
author: "Isabella Velásquez"
date: today
format: 
  html:
    embed-resources: true
execute:
  echo: false
  message: false
  warning: false
---

In this report, we present a detailed overview of polling places in various counties across the United States, providing information on the total number of polling places and showcasing example locations for each county on election day.[^1]

[^1]: Data from https://github.com/rfordatascience/tidytuesday

```{r}
#| label: setup
library(readr)
library(dplyr)
library(tidyr)
library(tidycensus)
library(tigris)
library(sf)
library(ggplot2)
library(purrr)
library(kableExtra)
polling_places <- read_csv(here::here("data", "geocoded_polling_places.csv"))
```

## Alabama

### Overview

:::: {layout-ncol="2"}
::: {}

* Total number of counties: **`r polling_places |> filter(state == "Alabama") |> distinct(county_name) |> count()`**
* Total number of polling places: **`r polling_places |> filter(state == "Alabama") |> count()`**
* Election Day: **`r polling_places |> filter(state == "Alabama") |> pull(election_date) |> unique()`**

:::

::: {}

```{r}
#| label: "fig-statemap"
#| fig-cap: "Polling locations in the state"
#| results: hide
us_states <- states(cb = TRUE, resolution = "20m") |>
  filter(NAME != "Puerto Rico")

ggplot(us_states |> filter(NAME == "Alabama")) +
  geom_sf() +
  geom_point(data = polling_places |> filter(state == "Alabama"),
             aes(x = longitude,
                 y = latitude),
             alpha = 0.4) +
  theme_void() 
```

:::
::::

{{< pagebreak >}}

### POLLING PLACES BY COUNTY

See polling place locations in @fig-statemap.

#### AUTAUGA

* Total polling places: `r polling_places |> filter(state == "Alabama", county_name == "AUTAUGA") |> count()`
* Example locations:

```{r}
polling_places |> 
  filter(state == "Alabama", county_name == "AUTAUGA") |> 
  head(6) |> 
  select(name) |> 
  kbl(format = "markdown")
```

#### BALDWIN

* Total Polling Places: `r polling_places |> filter(state == "Alabama", county_name == "BALDWIN") |> count()`
* Example Locations:

```{r}
polling_places |> 
  filter(state == "Alabama", county_name == "BALDWIN") |> 
  head(6) |> 
  select(name) |> 
  kbl(format = "markdown")
```