part3_vr.R

# -----
# Vanessa Rathbone
# -----

library(tidyverse)
library(janitor)
library(here)

# Read in data

db <- read_csv(here::here("data", "disease_burden.csv")) %>% 
  clean_names() %>% 
  rename(deaths_per_100k = death_rate_per_100_000)

# Create subset and graph

db_sub <- db %>% 
  filter(country_name %in% c("Afghanistan", "United States", "Japan", "Somalia")) %>% 
  filter(age_group == "0-6 days", sex == "Both")

# Create a basic line graph

ggplot(data = db_sub, aes(x = year, 
                          y = deaths_per_100k)) +
  geom_line(aes(color = country_name))