유럽 여행 계획 보고서
한 달 간 유럽으로 여행을 갈 예정입니다. 여행때 방문할 도시와 기간, 경로등을 데이터로 만들고 원과 원의 크기, 선을 사용하여 지도위에 표현하였습니다.
데이터 시각화를 진행한 과정은 아래와 같습니다.
1. 데이터셋을 직접 만들었습니다. : 도시(city), 위도(lat), 경도(lon), 체류일(day)
2. 방문 도시는 베를린, 암스테르담, 브뤼셀 파리, 취리히 순으로 정리하였습니다.
3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.
4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10로 지정했습니다.
5. 체류일에 따라 원의 면적을 설정하였습니다. (ex. radius = ~dats*3000)
시각화의 결과는 아래와 같습니다. 코딩 결과도 함께 나타냈습니다. 

library(leaflet)
## Warning: package 'leaflet' was built under R version 4.5.2
city <- c("Berlin","Amsterdam","Bruxelles","Paris","Zürich")
lat <- c(52.5197,52.3571,50.8759,48.8670,47.3828)
lng <- c(13.4177,4.9002,4.3448,2.3820,8.5556)
days <- c(1,3,2,15,10)

travelPlan <- data.frame(city = city, lat = lat, lng = lng, days = days)
travelPlan
##        city     lat     lng days
## 1    Berlin 52.5197 13.4177    1
## 2 Amsterdam 52.3571  4.9002    3
## 3 Bruxelles 50.8759  4.3448    2
## 4     Paris 48.8670  2.3820   15
## 5    Zürich 47.3828  8.5556   10
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.9477, lat=50.0917, zoom = 5) %>% addCircles(lng=~lng, lat=~lat,radius=~days*3000, color = "yellow") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lng, lat=~lat, weight=.5, color = "yellow"); map

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