EU Referendum Spending

On the 24th Februrary, the Electoral Commission published all spending by organisations during the UK’s referendum to leave the EU.

#open the csv file from the electoral commission
#rehosted at:
github <- "https://raw.githubusercontent.com/RobWHickman/"
spending <- read.csv(paste0(github, "Databases-and-Files/master/EUref_Spend/EUrefspending.csv"),
                     stringsAsFactors = FALSE)
  #convert to numeric pounds and r date format
  spending$TotalExpenditure <- gsub("£", "", spending$TotalExpenditure)
  spending$TotalExpenditure <- gsub(",", "", spending$TotalExpenditure)
  spending$TotalExpenditure <- as.numeric(spending$TotalExpenditure)
  spending$DateIncurred <- as.Date(spending$DateIncurred, "%d/%m/%Y")
#find political parties in the data  
party_affiliated <- unique(spending$RegulatedEntityName)[c(2, 8, 9, 16, 20, 27, 39, 61, 62, 66)]  
#get the total spend for each sanctioned organisation  
total_spend_df <- aggregate(spending$TotalExpenditure,
                            by = list(spending$RegulatedEntityName),
                            FUN = sum)
#find the large organisations total spends
#political parties, and others who spend over 1M GBP
organisation_df <- rbind(total_spend_df[which(total_spend_df$x > 1000000),],
                         total_spend_df[which(total_spend_df$Group.1 %in% party_affiliated),])
  organisation_df <- organisation_df[-which(duplicated(organisation_df$Group.1)),]
  organisation_df$shortnames <- c("Labour", "Lib Dems", "IN Campaign", "UKIP", "Vote Leave",
                                  "Conservative IN", "DUP", "Green OUT", "Green", "Labour OUT",
                                  "Plaid Cymru", "SNP")
  organisation_df$organisation <- c("Labour", "Lib Dems", "Official Campaign", "UKIP",
                                    "Official Campaign", "Conservatives", "DUP", "Greens",
                                    "Greens", "Labour", "Plaid Cymru", "SNP")
  organisation_df <- organisation_df[order(organisation_df$Group.1),]

First, the total spends of all the organisations:

library(ggplot2)
library(ggthemes)
library(ggrepel)
#shortened labels of the large spending organisation
#from organisation_df
big_spenders <- c("Brexit Express", "Conservative IN", "Labour", "Leave.EU", "Lib Dems",
                  "Darren Grimes", "IN Campaign", "UKIP", "Vote Leave")
#plot the total spending of each organisation
ggplot(spending, aes(RegulatedEntityName, TotalExpenditure)) +
    geom_bar(stat = "identity") +
    geom_bar(data = organisation_df, aes(Group.1, x, fill = organisation), stat = "identity") +
    geom_text_repel(data = total_spend_df[which(total_spend_df$x > 500000),],
                    label = big_spenders, aes(Group.1, x), nudge_x = -4, nudge_y = 500000,
                    min.segment.length = unit(0.1, "lines")) +
    scale_x_discrete(breaks = NULL) +
    scale_y_continuous(breaks = seq(0, 7000000, 1000000), labels = paste(seq(0,7), "Million")) +
    scale_fill_manual(values = c("blue", "darkred", "green", "red", "yellow",
                                 "pink", "darkgreen", "goldenrod", "purple")) +
    theme_fivethirtyeight() +
    ggtitle("EU Referendum Expenditure",
          "total expenditure (£) for each registered entity sorted alphabetically")

ggraph also came out today

library(ggraph)
library(ggforce)
total_spend_df <- mutate(total_spend_df, shortnames = "", organisation = "none")
total_spend_df$shortnames[which(total_spend_df$x > 500000)] <- big_spenders
total_spend_df$organisation[which(total_spend_df$Group.1 %in% organisation_df$Group.1)] <- organisation_df$organisation
sizes <- total_spend_df$x
position <- pack_circles(sizes)
data <- data.frame(x = position[,1], y = position[,2], r = sqrt(sizes/pi))
ggplot() +
  geom_circle(aes(x0 = x, y0 = y, r = r, fill = total_spend_df$organisation), data = data) +
  geom_text(label = organisation_df$Group.1) +
  geom_circle(aes(x0 = 0, y0 = 0, r = attr(position, 'enclosing_radius'))) +
  geom_node_text(data = data, aes(label = total_spend_df$shortnames, size = r)) +
  scale_fill_manual(values = c("blue", "darkred", "green", "red", "yellow", "grey",
                                "pink", "darkgreen", "goldenrod", "purple"), name = "organisation") +
  theme_fivethirtyeight() +
  #theme(legend.position = "none") +
  guides(size = FALSE) +
  #guide_legend(title = "organisation")
  theme(axis.text = element_blank()) +
  ggtitle("EU Referendum Expenditure",
          "total expenditure (£) for each registered entity") +
  coord_fixed()