mg-load.R

## Libraries
library(tidyverse)
library(viridis)
library(gridExtra)

## Data
# South Africa map data
load("../data/southern_africa_coast.Rdata") # Lowres
names(southern_africa_coast)[1] <- "lon"
load("../data/sa_shore.Rdata") # Hires
names(sa_shore)[4:5] <- c("lon","lat")

# International borders
load("../data/africa_borders.Rdata")

# Reanalysis data
load("../data/all_jan1_0.5.Rdata")
names(all_jan1_0.5)[1:2] <- c("lon","lat")

# In situ time series locations
site_list <- read_csv("../data/mg_site_list.csv")
site_list$order <- 1:nrow(site_list)

# Bathymetry data
load("../data/sa_bathy.Rdata")

## Scale bar function
source("../func/scale.bar.func.R")