knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.