dakvid

# Plonk the largest islands together on the page
# I was going to both make these to scale, and animate between them, but
# didn't have enough time up my sleeve.

library(glue)
library(dplyr)
library(sf)
library(rnaturalearth)
library(ggplot2)
library(patchwork)

dakvid

library(stringr)
library(dplyr)
library(sf)
library(rmapshaper)
library(roughsf)

# https://datafinder.stats.govt.nz
ta <- 
  st_read("2021/statsnz/territorial-authority-2021-clipped-generalised.gpkg") |> 
  filter(! TA2021_V1_00 %in% c("067", "999")) |> 

dakvid

# Simple map of state highways

library(dplyr)
library(sf)
library(ggplot2)
library(sysfonts)
font_add_google("Tinos")
COL_FG <- "white"
COL_BG <- "black"
MAP_FONT <- "Tinos"

dakvid

# Take https://gist.github.com/dakvid/3bc77f4d3c2da742113229ba11b5cc8b
# and make it 3d with rayshader

library(glue)
library(stringr)
library(dplyr)
library(sf)
library(rmapshaper)
library(ggplot2)
library(rayshader)

dakvid

# Animate an expanding buffer around land, with a "globe" view of the Pacific

library(glue)
library(stringr)
library(dplyr)
library(purrr)
library(sf)
library(rnaturalearth)
library(ggplot2)
library(av)

dakvid

# Take the geocoded album covers from Audioculture and plonk them on a map :-)
# Don't obviously see options to control the size of the images :-/

library(curl)
library(jsonlite)
library(stringr)
library(purrr)
library(dplyr)
library(sf)
library(rmapshaper)

dakvid

# Take the full Kontur dataset (if the machine can handle it) and show only those
# that match where I live

library(dplyr)
library(sf)
library(ggplot2)

# https://data.humdata.org/dataset/kontur-population-dataset
kontur <-
  st_read("kontur_population_20220630.gpkg")

dakvid

# Overlay New Zealand on a map of Westeros

library(dplyr)
library(sf)
library(rmapshaper)
library(ggplot2)

# https://www.cartographersguild.com/showthread.php?t=30472
locations <- 
  st_read("GoTRelease/locations.shp")

dakvid

# Compare Kontur Population Grid against Stats NZ grids for Wellington City
# For #30DayMapChallenge 2022 - Day 21

library(dplyr)
library(sf)
library(rmapshaper)
library(ggplot2)

# Kontur data -----------------------------------

dakvid

# Tanaka map of Wellington Region elevation
# Adapting https://github.com/nrennie/30DayMapChallenge/blob/main/2022/scripts/18_blue.R

library(dplyr)
library(sf)
library(tanaka)
library(elevatr)
library(terra)
library(PrettyCols)