# NOT RUN {
library(eechidna)
library(tidyverse)
library(ggthemes)
nat_map19 <- nat_map_download(2019)
data(fp19)
winners <- fp19 %>% filter(Elected == "Y")
# Combine Liberal and National parties
winners <- winners %>%
mutate(PartyNm = ifelse(PartyNm %in% c("NATIONAL PARTY", "LIBERAL PARTY"),
"LIBERAL NATIONAL COALITION", PartyNm))
# Join to map
nat_data19 <- nat_data_download(2019)
nat_data19$DivisionNm <- toupper(nat_data19$elect_div)
nat_data19 <- nat_data19 %>% left_join(winners, by = "DivisionNm")
# Plot
partycolours = c("#FF0033", "#FF7B00", "#000000", "#FFFF00", "#0066CC", "#009900")
ggplot(data=nat_map19) +
geom_polygon(aes(x=long, y=lat, group=group), fill="grey90", colour="white") +
geom_point(data=nat_data19, aes(x=x, y=y, colour=PartyNm), size=1.5, alpha=0.8) +
scale_colour_manual(name="Political Party", values=partycolours) +
theme_map() + coord_equal() + theme(legend.position="bottom")
# }
Run the code above in your browser using DataLab