eechidna (version 1.3.0)

nat_data16: Data of the Australian Electorates from 2016

Description

A dataset containing some demographic information for each of the 150 Australian electorates. The data were obtained from the Australian Electoral Commission, and downloaded from http://www.aec.gov.au/Electorates/gis/gis_datadownload.htm. The data is published

Usage

nat_data16

Format

A data frame with 150 rows with the following variables:

• id: numeric identifier for the polygon

• elect_div: Electorate division name

• state: abbreviation of the state name

• numccds: AEC variable that might be filled with meaning or a description down the road

• area_sqkm: combined square kilometers of each electorate

• long_c: longitude coordinate of electorate (polygon) centroid

• lat_c: latitude coordinate of electorate (polygon) centroid

• x: latitude coordinate for plotting a cartogram

• y: longitude coordinate for plotting a cartogram

• radius: variable used in the construction of cartogram points

Examples

# NOT RUN {
library(eechidna)
library(tidyverse)
library(ggthemes)
data(nat_map16)
data(fp16)
winners <- fp16 %>% filter(Elected == "Y")
data(nat_data16)
nat_data16$DivisionNm <- toupper(nat_data16$elect_div)
nat_data16 <- nat_data16 %>% left_join(winners, by = "DivisionNm")

# Plot
partycolours = c("#FF0033", "#000000", "#CC3300", "#0066CC", "#FFFF00", "#009900")

ggplot(data=nat_map16) + 
geom_polygon(aes(x=long, y=lat, group=group), fill="grey90", colour="white") +
geom_point(data=nat_data16, 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")
# }