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

한 달 간 유럽으로 여행을 갈 예정입니다. 여행때 방문할 도시와 기간, 경로 등을 데이터로 만들고 원과 원의 크기, 선을 사용하여 지도위에 표현하였습니다.

데이터 시각화를 진행한 과정은 아래와 같습니다.

  1. 데이터셋을 직접 만들었습니다: 도시(city), 위도(lat), 경도(lon), 체류일(day)
  2. 방문도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.
  3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.
  4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정했습니다.
  5. 체류일에 따라 원의 반지름을 설정하였습니다. (ex. radius = days * 3000)

시각화 결과는 아래의 코드 실행과 함께 나타났습니다.

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.9042, 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

과제 결과물 예시

위 지도는 각 도시 간 이동 경로를 선으로, 체류일에 따른 머무는 중요도를 원의 크기로 표현한 시각화입니다.

이상 보고를 마칩니다. 감사합니다.