유럽 여행 계획 세우기 보고서 한달 간 유럽으로 여행을 갈 예정입니다. 여행 떄 방문할 도시와 기간, 경로 등을 데이터로 만들고 원과 원의 크기, 선을 사용하여 지도위에 표현하였습니다. 데이터 시각화를 진행한 과정은 아래와 같습니다. 1. 데이터셋을 직접 만들었습니다. 도시 위도, 경도, 체류일 2. 방문 도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다. 3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다. 4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일 취리히 10일로 지정했습니다. 5. 체류일에 따라 원의 면적을 설정하였습니다. (ex. radius= ~days*3000) 시각화의 결과는 아래와 같습니다.
install.packages("leaflet", repos = "https://cran.r-project.org")## 'C:/Users/kth04/AppData/Local/R/win-library/4.5'의 위치에 패키지(들)을 설치합니다.
## (왜냐하면 'lib'가 지정되지 않았기 때문입니다)## 패키지 'leaflet'를 성공적으로 압축해제하였고 MD5 sums 이 확인되었습니다
##
## 다운로드된 바이너리 패키지들은 다음의 위치에 있습니다
## C:\Users\kth04\AppData\Local\Temp\RtmpwDPrVt\downloaded_packageslibrary(leaflet)
library(ggplot2)
city<-c("Berlin", "Amsterdam", "Bruxelles","Paris", "zurich")
lat<-c(52.5197, 52.3571, 50.8759,48.8670, 47.3828)
lon<-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,lon=lon, days=days)
map<-leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng = 7.9477, lat = 50.0917, zoom = 5) %>% addCircles(lng = ~lon, lat = ~lat, radius = ~days*3000, color = "yellow") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng = ~lon, lat = ~lat, weight = .5,color = "yellow"); map