Homework 2

Loading and wrangling ‘Homicides’ dataset

knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)

homicides <- read_csv("C:\\Users\\steph\\OneDrive\\Documents\\R\\homicides_by_state.csv")

library(dplyr)
  homicides%>%
  filter(RATE > 10) %>%
  arrange(desc(RATE))

# A tibble: 42 × 4
    YEAR STATE  RATE DEATHS
   <dbl> <chr> <dbl>  <dbl>
 1  2020 MS     20.5    576
 2  2020 LA     19.9    873
 3  2019 MS     15.4    434
 4  2019 LA     14.7    650
 5  2017 LA     14.4    653
 6  2016 LA     14.3    648
 7  2020 AL     14.2    654
 8  2020 MO     14      803
 9  2018 MS     13.4    382
10  2018 LA     13.3    598
# … with 32 more rows