Mymaps

library(leaflet) city <-c(“Berlin”,“Amsterdam”,“Bruxelles”,“Paris”, “Nanterre”) lat <-c(52.5197,52.3571,50.8759,48.8670,48.891308) lon <- c(13.4177,4.9002,4.3448,2.3820,2.212391) days <- c(1,3,2,15,5,5) travelPlan <- data.frame(city = city, lat = lat, lon = lon, days = days) map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.9477, lat=50.0917, zoom = 5) %>% addCircles(lng=~lon, lat=~lat, radius=~days*3000, color = “yellow”) %>% addMiniMap(width = 150, height = 150) %>% addPolylines (lng=~lon, lat=~lat, weight=.5, color = “yellow”); map