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

Hvar veiða menn hrognkelsi

library(tidyverse)
library(mar)
con <- connect_mar()
afli_grasl(con) %>% 
  filter(ar == 2015) %>% 
  collect(n = Inf) %>% 
  ggplot(aes(lon, lat)) + 
  geom_polygon(data = geo::bisland) + 
  geom_jitter(aes(size = fj_grasl), col = 'red', alpha = 0.1) +
  coord_quickmap()


einarhjorleifsson/mar documentation built on May 16, 2019, 1:30 a.m.