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

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

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

  1. 데이터셋을 직접만들었습니다.도시(city),위도(lat),경도(lon),체류일(day)

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

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

  4. 각 도시별 머무는 체류일은 베를린 1일, 암스테리담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정했습니다.

  5. 체류일에 따라 원의 면적을 설정하였습니다. (ex.radius=~day*3000)

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

city = c( "베를린", "암스테르담", "브뤼셀", "파리", "취리히")
lat = c(52.536090,52.402450,50.853064,48.888662,47.394643)
lon = c(13.305255,4.923186,4.357564, 2.322315, 8.535362)
day = c(1,3,2,15,10)

travelplan <- data.frame(city=city,lng=lon, lat=lat, day=day)

                    
map <- leaflet(travelplan)%>% 
  addProviderTiles(providers$CartoDB.DarkMatter)%>%
  setView(lng=7.9477, lat=50.0917, zoom = 5) %>%
  addCircles(lng=~lng, lat=~lat, radius=~day*3000, color="yellow") %>% 
  addMiniMap(width = 150, height = 150) %>%
  addPolylines(lng=~lng, lat=~lat, weight=.5,color = "yellow"); map

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