31일 간 유럽으로 여행을 갈 예정입니다. 원활한 여행을 위해 여행 시 방문할 도시와 머무는 기간, 경로 등을 고려하여 데이터로 작성하고 방문지를 원, 일수를 원의 크기, 경로를 선으로 표현하여 지도에 나타냈습니다.
데이터 시각화의 과정은 다음과 같습니다.
1. 방문 장소, 위도, 경도, 체류일을 각각 City, Lat, Lon, Days라는 데이터셋으로 작성했습니다.
2. 방문 순서는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순이며 영문으로 작성했습니다.
3. 각 장소의 위도와 경도는 구글맵을 활용하여 정리했습니다.
4. 체류일은 2번의 순서대로 1일, 3일, 2일, 15일, 10일 입니다.
5. 체류일에 따라 원의 크기를 변경하였습니다. 더 오래 머무는 도시에 더 큰 원이 생성됩니다.
** 시각화의 결과는 다음과 같습니다. **
City=c("Berlin","Amsterdam","Brussels","Paris","Zurich")
Lat=c(52.52686148459501,52.373953092098,50.853605537527194,48.85795138142472,47.37930160838832)
Lon=c(13.40620949498821,4.894347363081415,4.359108718769736,2.3523556028225068,8.53656393861863)
Days=c(1,3,2,15,10)
Travel.data=data.frame(city=City,lat=Lat,lon=Lon,days=Days)
map<-leaflet(Travel.data)%>%
addProviderTiles(providers$CartoDB.DarkMatter)%>%
setView(lng=8,lat=50,zoom=5)%>%
addCircles(lng=~lon,lat=~lat,radius=~days*3000,color="yellow")%>%
addPolylines(lng=~lon,lat=~lat,weight=2,color="yellow")%>%
addMiniMap(width=150,height=150)
map이상으로 14주차 유럽 여행 계획 세우기 과제 보고서를 마칩니다. 수고하셨습니다.