[[!meta date="2017-10-17 20:35:40 +0800"]]

[[!tag R spatial analysis visualisation]]
How cool is this? A map of Western Australia with all state roads marked in only 5 lines of R!

[[!format r """
WARoads <- st_read(dsn = "data/", layer = "RoadNetworkMRWA_514", stringsAsFactors = FALSE)
WALocalities <- st_read(dsn = "data/", layer = "WA_LOCALITY_POLYGON_shp", stringsAsFactors = FALSE)
ggplot(WALocalities) +
  geom_sf() +
  geom_sf(data = dplyr::filter(WARoads, network_ty == "State Road"), colour = "red")
"""]]

[[Map of WA state roads|/pics/state-roads.png]]

Courtesy of the development version of ggplot2 - geom_sf is not yet available in the version on CRAN.