유럽 여행 경로 시각화

library(leaflet)
city <- c("Berlin","Amsterdam","Bruxelles","Paris","Zürich")
lat <- c(52.5197,52.3571,50.8759,48.8670,47.3828)
lon <- c(13.4177,4.9002,4.3448,2.3820,8.5556)
days <- c(1,3,2,15,10)

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

베를린을 시작으로 암스테르담을 거쳐 파리를 방문하는 일정으로 유럽에 방문한다.