HW3

Load Libraries

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(dplyr)
library(ggplot2)
library(openintro)

## Loading required package: airports

## Loading required package: cherryblossom

## Loading required package: usdata

Load Data

# Load cancer death data
Data <- read.csv("uscs_map_death_all.csv", header = TRUE)
Data$State <- Data$State %>%
  abbr2state() %>%
  tolower()

Create Map

# Load map data for states
Map <- map_data("state")

# Create map
Map <- Map %>%
  left_join(y = Data, by = c("region" = "State"))
  ggplot(data = Map, mapping = aes(x = long, y = lat, group = group, fill = Rate)) +
  ggtitle("US State Cancer Deaths per 100,000 People") +
  geom_polygon(color = "black", size = 0.2) +
  coord_map(projection = "albers", lat0 = 39, lat1 = 45) +
  scale_fill_continuous(type = "viridis") +
  theme(legend.position = "bottom",
        legend.title = element_blank(),
        axis.line = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        axis.title = element_blank(),
        panel.background = element_blank(),
        panel.border = element_blank(),
        panel.grid = element_blank())