draw_electoral_divisions_map: Draw an electoral map, with insets.

In HughParsonage/grattanElectionMaps:

Description

Draw an electoral map, with insets.

Usage

draw_electoral_divisions_map(.polygonal.data, year = c("2016", "2013",
  "2010", "2007", "2004"), scale_fill_manual_args = NULL,
  scale_fill_gradientn_args = NULL, polygon_outline_colour = "black",
  city_inset_scale = 13, base_size = 25, base_family = "",
  city_inset_text_size = 25, legend.title = NULL)

Arguments

.polygonal.data	Data including the vertices of all polygons, including a fill variable to colour the polygons.
year	What elections' boundaries should be used?
scale_fill_manual_args	A list of arguments to pass to scale_fill_manual.
scale_fill_gradientn_args	A list of arguments to pass to scale_fill_gradientn.
polygon_outline_colour	The outline of polygons.
city_inset_scale	By how much should the cities' insets be scaled by relative to the Australia plot?
base_size, base_family	Passed to theme_map.
city_inset_text_size	Title size in points.
legend.title	What should the legend title (for fill) be?

Value

A printed ggplot object.

Examples

library(grattanCharts)
library(hutils)
library(ggplot2)
library(scales)
library(data.table)
library(magrittr)
system.file(package = "grattanElectionMaps",
           "examples/wellbeing.csv") %>%
 fread %>%
 .[, ELECT_DIV := toupper(gsub("[^A-Za-z]", "", Electorate))] %>%
 .[aus_division_elect_map_simple_2016, on = "ELECT_DIV"] %T>%
 .[, stopifnot(!anyNA(SE), uniqueN(Rank) == 150L)] %>%
 setnames("Personal wellbeing index", "fill") %>%
 draw_electoral_divisions_map(
   scale_fill_gradientn_args = list(colors = gpal(7)),
   legend.title = "Well-being",
   city_inset_scale = c("PER" = 26,
                        "ADL" = 24,
                        "MEL" = 18,
                        "SYD" = 14,
                        "BNE" = 14),
   city_inset_text_size = 18, 
   base_size = 20)

HughParsonage/grattanElectionMaps documentation built on May 7, 2019, 5:02 a.m.