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

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

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

  1. 데이터셋을 직접 만들었습니다: 도시, 위도, 경도, 체류일

  2. 방문도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.

  3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.

  4. 각 도시별 머무는 체류일은 1일, 3일, 2일, 15일, 10일 순 입니다.

  5. 체류일에 따라 원의 면적을 설정하였습니다.

  6. 이동 경로는 선으로 연결하여 표현하였습니다.

지도 시각화 결과는 아래와 같습니다. 코딩 결과도 함께 나타냈습니다.

library(leaflet)

dataset <- data.frame(city = c("베를린", "암스트레담", "브리쉘", "파리", "취리히"),
                      lat = c(52.52978, 52.37510, 50.84561, 48.86145, 47.37927),
                      lon = c(13.41509, 4.89434, 4.38224, 2.33879, 8.54291),
                      day = c(1, 3, 2, 15, 10))
map <- leaflet(dataset) %>% 
       addProviderTiles(providers$CartoDB.DarkMatter) %>% 
       setView(lng=6.7, lat=50, zoom = 5) %>% 
       addCircles(lng=~lon, lat=~lat, 
                  radius=~day*3000, color="yellow", weight=2) %>% 
       addMiniMap(width = 150, height = 150) %>% 
       addPolylines(lng=~lon, lat=~lat, color="yellow", weight=1); map

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