This Assignment looks into monetary donation data. Some attributes that are described are the name of the donor, their party affiliation and the amount that they donated.
The data was loaded in using read_csv
The packages used were tidyverse dplyr lubridate
lubridate was used for cleaning up the dates
library("tidyverse")
summary(politics_data$contribution_receipt_amount, na.rm=TRUE)
politics_data$contribution_receipt_date <- mdy(politics_data$contribution_receipt_date)
Wanted to see what people are donating to with no employer
This next question asks who are the top 5 donors by name.
As you can see from the plot, Michael had the most ytd aggregated money.