library("spdep")
data("boston")
pdf("boston_pts.pdf", width=5, height=6)
plot(boston.c$LON, boston.c$LAT, pch=19, asp=T, cex=0.4, col=boston.c$CHAS)
dev.off()
#
library("ggmap")
map <- get_map(location=c(-71.5, 42.1, -70.5, 42.6), source="osm")
pdf("boston_osm.pdf", width=5, height=6)
ggmap(map)
dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.