Add layer code to vignette

[jaseeverett]

library(tidyverse)
library(layer) # remotes::install_github("marcosci/layer")

dat <- read_rds("/Users/eve067/GitHub/SpatialPlanning_SthnOcean/Output/Features/Features_sf_raw.rds")

layers <- c("Adult_toothfish_occurrence", "SOES_post_breeding", "ELAN_summer", "EUCR_summer_adult", "EUSU_summer_adult")

x1 <- tilt_map(dat %>% dplyr::select(layers[1]), x_shift = 0, y_shift = 0, y_tilt = 2)
x2 <- tilt_map(dat %>% dplyr::select(layers[2]), x_shift = 0, y_shift = 1e6, y_tilt = 2)
x3 <- tilt_map(dat %>% dplyr::select(layers[3]), x_shift = 0, y_shift = 2e6, y_tilt = 2)
x4 <- tilt_map(dat %>% dplyr::select(layers[4]), x_shift = 0, y_shift = 3e6, y_tilt = 2)
x5 <- tilt_map(dat %>% dplyr::select(layers[5]), x_shift = 0, y_shift = 4e6, y_tilt = 2)

map_list <- list(x1, x2, x3, x4, x5)
# map_list <- purrr::map(layers, .f = ~ tilt_map(dat %>% dplyr::select(.)))

plot_tiltedmaps(map_list,
                layer = c("value", "value", "value", "value", "value"),
                palette = c("mako", "oslo", "acton", "hawaii", "batlowK"),
                direction = c(-1, -1, 1, 1, 1))

ggsave("LayerStack.png", dpi = 500)