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

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

데이터 시각화 과정은 다음과 같습니다.

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

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

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

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

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

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

library(leaflet)
## Warning: package 'leaflet' was built under R version 4.5.2
city <- c("베를린","암스테르담","브뤼셀","파리","취리히")
lat  <- c(52.527501340065776, 52.36040110318422,
          50.85468923004383, 48.861609211849306,
          47.38082957542226)
lng  <- c(13.396797157154197, 4.896640766367783,
          4.360653672831952, 2.3451948111827785,
          8.541698449880744)
days <- c(1,3,2,15,10)

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

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

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