유럽 여행의 일정을 Rmarkdown으로 정리해 보았습니다. 방문할 도시들과 머무는 기간, 그리고 이동하는 경로를 데이터로 만든 뒤, 지도 위에 선과 다양한 크기의 원으로 시각화해 보았습니다.
제가 이 지도를 완성한 과정은 이렇습니다.
가장 먼저 도시(city), 위도(lat), 경도(lon), 체류일(day)을 기준으로 저만의 여행 데이터셋을 만들었습니다.
방문할 도시는 제 이동 동선에 맞춰 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 나열했습니다.
지도 위에 정확히 표시하기 위해 구글 지도를 보며 각 도시의 위도와 경도를 찾아 입력했습니다.
도시별로 머무는 시간은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 계획을 세웠습니다.
마지막으로, 어느 도시에 얼마나 오래 머무는지 한눈에 파악할 수 있도록 체류일이 길수록 지도 위 원의 크기가 커지도록 설정했습니다. (예: 반경 = 체류일 * 3000)
이렇게 완성된 시각화 지도와 이를 구현하기 위해 작성한 코드는 아래에서 확인하실 수 있습니다.
city <- c("Berlin","Amsterdam","Bruxelles","Paris","Zürich")
lat <- c(52.5197,52.3571,50.8759,48.8670,47.3828)
lng <- 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, lng = lng, days = days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.9477, lat=50.0917, zoom = 5) %>% addCircles(lng=~lng, lat=~lat, radius=~days*3000, color = "yellow") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lng, lat=~lat, weight=.5, color = "yellow"); map