The source for these latitudes and longitudes came from the following website: [link] http://www.losapos.com/game_of_thrones_locations.
Note: I did not verify the accuracy for these coordinates from this website.
mylat <- c(55.167801, 43.445637, 42.639752, 35.896447, 31.046642, 31.50974, 54.368321, 64.265473)
mylong <- c(-6.815096, -2.784249, 18.110189, 14.446442, -7.129532, -9.774249, -5.581312, -21.094093)
mycol <- c("darkblue", "cyan", "violet", "red", "green", "orange", "darkgray", "chartreuse")
mynames <- c("Dragonstone", "Stairs to Dragonstone", "King's Landing", "The Red Keep", "Yunkai", "Astapor", "Winterfell", "Beyond the wall")
GOT <- data.frame(lat=mylat, lng=mylong, col=mycol)
mymap <- GOT %>% leaflet() %>% addTiles %>% addCircleMarkers(color = mycol, fillOpacity = .9) %>% addLegend("bottomleft", labels=mynames, colors=mycol)
mymap
You may need to adjust the zoom level of your browser for the legend to display correctly.