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

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

데이터 시각화를 진행한 과정은 아래와 같습니다.

  1. 데이터세를 직접 만들었습니다. 도시(city), 위도(lat), 경도(lng), 체류일(day)

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

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

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

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

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

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