index.Rmd

---
title: "trumpcongress"
author: "adriana"
date: "11/1/2019"
output: html_document
---

## IMPORT 

```{r}
data <- readr::read_csv(file = "averages.csv")
```

```{r}
library(dplyr)
data <- filter(.data = data, congress != 0)
```

```{r}
library(ggplot2)
g <- ggplot(
  data = data,
  mapping = aes(x = net_trump_vote, fill = party)
)
g <- g + geom_histogram()
g <- g + scale_fill_manual(
  values = c("R" = "red", "D" = "blue", "I" = "darkgreen")
)
g 
```