---
title: "Report on Gun Murders"
author: "Rafael Irizarry"
format: gfm
---

# Introduction

This is a report on 2010 gun murder rates obtained from FBI reports. The original data was obtained from [this Wikipedia page](https://en.wikipedia.org/wiki/Murder_in_the_United_States_by_state).

We are going to use the following library:

```{r}
#| label: loading-libs
#| message: false

library(tidyverse)
```
  
and load the data we already wrangled:

```{r}
load("rdas/murders.rda")
```

## Murder rate by state 

We note the large state to state variability by generating a barplot showing the murder rate by state:

```{r}
#| label: murder-rate-by-state
#| echo: false

murders %>% mutate(abb = reorder(abb, rate)) %>%
  ggplot(aes(abb, rate)) +
  geom_bar(width = 0.5, stat = "identity", color = "black") +
  coord_flip()
```