Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
## 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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment