Mamaps

유럽 여행 경로 시각화

library(leaflet)
city <- c("Grindelwald","Paris", "Bruxelles","Amsterdam", "London")
lat <- c(46.621039, 48.858140, 50.848633, 52.387735, 51.502569)
lng <- c(8.041944, 2.295498, 4.350547, 4.916931, -0.127687)
days <- c(10,6,4,4,6)

travelPlan <- data.frame(city=city,lat=lat,lng=lng,days=days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng=4.451460, lat=49.343431, zoom = 5) %>% addCircles(lng=~lng, lat=~lat, radius=~days*2000, color="gray") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lng, lat=~lat, weight=.5); map

스위스 그린델발트를 시작으로 파리, 브뤼셀, 암스테르담, 런던을 순서로 유럽 곳곳을 여행한다.