# devtools::install_github("einarhjorleifsson/gisland")
library(gisland)
df <- data.frame(lon = seq(-24, -22, by = 0.25),
                 lat = seq(64, 65, by = 0.5))
m <- get_sjokort(bbox = c(-24,64,-22,65),zoom=8, crop=FALSE)
ggmap(m) +
  geom_point(data = df, aes(lon, lat), colour = "red", size = 5) +
  labs(x = NULL, y = NULL)