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
A data frame with 150 rows with the following variables:
id: numeric identifier that links the electorate with the corresponding polygon in 'nat_map'.
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
1 2 3 4 5 6 7 8 9 10 11 12 13
data(nat_data) nat_map$region <- nat_map$ELECT_DIV data(abs2011) abs2011$region <- abs2011$Electorate both <- intersect(unique(abs2011$region), unique(nat_map$region)) data(nat_data) library(ggplot2) library(ggthemes) ggplot(aes(map_id=region), data=subset(abs2011, region %in% both)) + geom_map(aes(fill=MedianIncome), map=subset(nat_map, region %in% both)) + expand_limits(x=nat_map$long, y=nat_map$lat) + theme_map()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.