This is a quick R script to visualize spatial information using Google Maps. Before you start, you need to obtain an API key from Google. Go to the registration page (https://developers.google.com/maps/documentation/geocoding/get-api-key) and follow the instructions. I recommend to select all mapping options.
Be aware that the geocoding API is a free service however, you need to associate a credit card with your account.
Step 1 – Load libraries and Google API Key
library(ggmap) library(ggplot2) library(ggrepel) googleAPIkey = scan("/Users/eva/Desktop/googleAPIkey.txt",what="") register_google(googleAPIkey)
Step 2 – Load sites with coordinates for mapping
Here I consider 4 sites at Lancaster University but sites and coordinates can be downloaded from a .txt or .csv file.
Name <- c("Sports Centre","Lancaster Environment Centre","Lancaster House","Forrest Hills") lat <- c(54.012266,54.009148,54.006626,54.007834) lon <- c( -2.792042,-2.787697,-2.788296,-2.771105) sites <- data.frame(Name,lon,lat)
4 sites at Lancaster University with associated coordinates:
## Name lon lat ## 1 Sports Centre -2.792042 54.01227 ## 2 Lancaster Environment Centre -2.787697 54.00915 ## 3 Lancaster House -2.788296 54.00663 ## 4 Forrest Hills -2.771105 54.00783
Step 3 – Create and customise the map
#Create a Google map that covers the area of interest myMap <- get_map(location = c(colMeans(sites[,c("lon","lat")])), # centered on the 'center' of all the points source = "google", maptype = "satellite", # can be "roadmap","terrain", "hybrid" check ?get_map zoom = 14, # map zoom from 3 (continent) to 21 (building), 10-13 for cities. api_key = googleAPIkey) #Plot and customise map using ggplot ggmap(myMap) + #Plot sites geom_point(data=sites, aes(x=lon, y=lat), shape = 21, color = "white", fill="red", size=3) + #Name sites geom_text_repel(data=sites, aes(label=Name), size=3, color="white", fontface = "bold")

There is no direct way to make the background transparent but the parameter ‘darken’ can be adjusted:
#Customise darkening ggmap(myMap,darken=c(0.5,"white")) + #Plot sites geom_point(data=sites, aes(x=lon, y=lat), shape = 21, color = "white", fill="red", size=3) + #Name sites geom_text_repel(data=sites, aes(label=Name), size=3, color="black", fontface = "bold")

Step 4 – Exportation
Don’t forget to cite ggmap if you use and publish it! See citation(“ggmap”) for details.
map <- ggmap(myMap,darken=c(0.5,"white")) + #Plot sites geom_point(data=sites, aes(x=lon, y=lat), shape = 21, color = "white", fill="red", size=3) + #Name sites geom_text_repel(data=sites, aes(label=Name), size=3, color="black", fontface = "bold") tiff("myMap_Lancaster_University.tiff", width=15, height=15, units="cm", compression="lzw", res=300) map graphics.off()