유럽 여행 계획 세우기 보고서

다양한 유럽 도시들을 여행할 경로를 설정해 봅니다.
나라별로 방문할 도시와 기간, 경로들을 데이터로 만들고 leaflet 패키지를 사용하여 지도상에 표시해 보았습니다.

여행 계획은 다음과 같은 기준으로 설정하였습니다:

  1. 여행 도시는 각 나라당 1~2개: 런던(London), 파리(Paris), 뮌헨(Munich), 로마(Rome)
  2. 각 도시에서 머무는 기간은 약 3~5일
  3. 도시 간 이동은 비행기를 이용하며, 이동 경로는 선(line)으로 시각화

지도 시각화

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