## Was Lauren Boebert Raising "Leadership" Level Dollars?

data2 <- read.csv("https://www.christianlindke.com/uploads/2/8/0/0/28002995/who_raised_the_most__house_incumbents_2021_-_2022.csv")

data3 <- data2 %>% 
  filter(!grepl("Senate", Office.Running.For)) %>% 
  filter(!grepl("D-", Representative))  
  

head(data3, 10)

library(stringr)

data3$Total.Raised <- str_replace_all(data3$Total.Raised, "[^[:alnum:]]", "")

data3$Total.Raised <- as.numeric(data3$Total.Raised)

data3$rank <- c(1:206)

p <- ggplot(data3, aes(rank, Total.Raised)) +
  geom_point()

p

p <- p + geom_text(data = subset(data3, rank <= 10),
              aes(rank, Total.Raised, label = Representative, colour = rank), hjust = 0, 
              nudge_x = 0.25, nudge_y = 0.25, check_overlap = TRUE, show.legend = FALSE) +
  theme_minimal() +
  scale_x_continuous(limits = c(-30, 206)) +
  scale_y_continuous(labels=scales::dollar_format())

p

# What About Chip Roy?

p + geom_text(data = subset(data3, rank == 69),
              aes(rank, Total.Raised, label = Representative, colour = rank), hjust = 0, 
              nudge_x = 0.25, nudge_y = 0.25, check_overlap = TRUE, show.legend = FALSE)