knitr::opts_chunk$set(echo = TRUE, fig.keep = "last") knitr::opts_knit$set(root.dir = "../")
library(rSDM)
occs <- as.data.frame(readr::read_csv("./data/locs_30m.csv"))
occmap(occs, bg = "google", type = "satellite", pcol = "red")
occmap(occs[occs$species == "macloviana", ], bg = "google", type = "satellite", pcol = "red")
occmap(occs[occs$species == "magellanica", ], bg = "google", type = "satellite", pcol = "red")
occmap(occs[occs$species == "microglochin", ], bg = "google", type = "satellite", pcol = "red")
occmap(occs[occs$species == "canescens", ], bg = "google", type = "satellite", pcol = "red")
occmap(occs[occs$species == "maritima", ], bg = "google", type = "satellite", pcol = "red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.