Far away from home

---

These are the farthest places from my birthtown (blue dot) I’ve lived in so far.

library(leaflet)
my_map <- leaflet() %>% 
  #addTiles() %>%
  addCircles(lat = 42.271130, lng = -71.612131, popup = "Westborough, MA", radius=50, color="#ff0000") %>%
  addCircles(lat = 34.681484, lng = 33.054878, popup = "Limassol, CY", radius=50, color="#ff0000") %>%
  addCircles(lat = 34.060860, lng = 74.437932, popup = "Gulmarg, IN", radius=50, color="#ff0000") %>%
  addCircles(lat = 37.218078, lng = 67.279262, popup = "Termez, UZ", radius=50, color="#ff0000") %>%
  addCircles(lat = 55.740031, lng = 37.615478, popup = "Moscow, RU", radius=200, color="#0000ff") %>%
  addCircles(lat = 55.814674, lng = 49.070199, popup = "Kazan, RU", radius=50, color="#ff0000") %>%
  addCircles(lat = 37.817363, lng = -122.478332, popup = "San Francisco, CA", radius=50, color="#ff0000") %>%
  addCircles(lat = 38.779088, lng = -9.499064, popup = "Cabo da Roca, PT", radius=50, color="#ff0000") %>%
  addCircles(lat = 51.474509, lng = -0.016175, popup = "London, UK", radius=50, color="#ff0000") %>%
  addCircles(lat = 33.741529, lng = -112.121488, popup = "Phoenix, AZ", radius=50, color="#ff0000") %>%
  addProviderTiles(providers$OpenStreetMap)
my_map