한 달 간 유럽으로 여행을 갈 예정입니다. 여행 때 방문할 도시와 기간, 경로 등을 데이터로 만들고 원과 원의 크기, 선을 사용하여 지도 위에 표현하였습니다.
데이터 시각화를 진행한 과정은 아래와 같습니다.
1. 데이터셋을 직접 만들었습니다:도시(city), 위도(lat), 경도(lon), 체류일(days)
2. 방문도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.
3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.
4. 각 도시별 머무는 체류일은 베를린 1일,암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정하였습니다.
5. 체류일에 따라 원의 면적을 설정하였습니다.(ex. radius=~days*3000)** 시각화의 결과는 아래와 같습니다. 코딩 결과도 함께 나타냈습니다. **
city = c("berlin", "amsterdam", "brussel", "paris", "zurich")
lon = c(13.407521121427443, 4.909442197527886, 4.358934091641197, 2.3521808457274997, 8.539478893196913)
lat = c(52.52727832882151, 52.37300010175979, 50.85509369038833, 48.862439455369014, 47.3790396061554)
days = c(1,3,2,15,10)
travel = data.frame(city=city,lon=lon, lat=lat, days=days)
map <- leaflet(travel) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.296861747705384, lat=49.71094210809591, zoom = 4.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이상 보고를 마칩니다. 감사합니다.