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

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

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

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

knitr::opts_chunk$set(echo = TRUE)
도시<- c("베를린", "암스테르담", "브뤼셀", "파리", "취리히")
위도<- c(52.523324,52.375966, 50.855773, 48.861565, 47.380696 )
경도<- c(13.383666,4.901061, 4.355675,  2.356990, 8.542744 )
체류일<- c(1,3,2,15,10)
travel.map<- data.frame(city= 도시, lat= 위도, lon= 경도,day=  체류일)

map <- leaflet(travel.map) %>%  addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.9477, lat=50.1, zoom=5) %>% addCircles(lng=~경도 , lat=~위도, radius=~체류일*3000, color="yellow")%>%addMiniMap(width=100, height=100) %>% addPolylines(lng=~경도, lat=~위도, color="yellow", weight=.5);map

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