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")


einarhjorleifsson/husky documentation built on May 16, 2019, 1:29 a.m.