I was curious who gave money to the Persist PAC!

warren_super_pac_donors.R

# Setup -------------------------------------------------------------------

library(htmltab)
library(dplyr)
library(ggplot2)
library(knitr)
library(scales)
url <- 'https://docquery.fec.gov/cgi-bin/forms/C00739110/1391696//sa/ALL'

# Parse -------------------------------------------------------------------

raw_tab <- htmltab::htmltab(
  doc = url
)
tab <- 
  raw_tab %>% 
  setNames(
    c('name', 'address', 'occupation', 'memo', 'date', 'amount', 'total')
  ) %>% 
  mutate(
    earmarked = is.na(memo),
    date = as.Date(date, format = '%m/%d/%Y'),
    amount = as.numeric(amount),
    total = as.numeric(total)
  ) %>% 
  select(-memo) %>% 
  arrange(-total)

# Results -----------------------------------------------------------------

tab %>% 
  group_by(name, address) %>% 
  summarize(total = sum(amount)) %>% 
  ungroup() %>% 
  mutate(share = total / sum(total)) %>% 
  select(share, total, name, address, total) %>% 
  arrange(-share) %>% 
  mutate(share = percent(share, accuracy = .1), total = dollar(total)) %>% 
  kable()