In einarhjorleifsson/husky: a collection of husky functions

knitr::opts_chunk$set(eval = TRUE,
                      echo = FALSE,
                      message = FALSE)

library(tidyverse)

attach("/net/hafkaldi/export/u2/reikn/Splus5/SurveyWork/OldStratas/.RData")

strata <- 
  STRATAS %>% 
  bind_rows(.id = "strata")
strata %>% 
  ggplot(aes(lon, lat, fill = strata)) +
  geom_polygon() +
  coord_quickmap() +
  scale_x_continuous(NULL, NULL) +
  scale_y_continuous(NULL, NULL) +
  theme(legend.position = "none")
detach("file:/net/hafkaldi/export/u2/reikn/Splus5/SurveyWork/OldStratas/.RData")

attach("/net/hafkaldi/export/u2/reikn/Splus5/SurveyWork/NewStratas/.RData")

strata <- 
  STRATAS %>% 
  bind_rows(.id = "strata")
strata %>% 
  ggplot(aes(lon, lat, fill = strata)) +
  geom_polygon() +
  coord_quickmap() +
  scale_x_continuous(NULL, NULL) +
  scale_y_continuous(NULL, NULL) +
  theme(legend.position = "none")
detach("file:/net/hafkaldi/export/u2/reikn/Splus5/SurveyWork/NewStratas/.RData")