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

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

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

  1. 데이터셋을 직접 만들었습니다: 도시(city), 위도(lat), 경도(lon), 체류일(day)

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

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

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

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

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

city<-c("Berlin","Amsterdam","Bruxelles","Paris","Zurich")
lon<-c(13.404109593993434,4.891589414677853,4.353784250434457,2.351494200233268,8.539135670449802)
lat<-c(52.523968787696056,52.37509610074659,50.852492808600736,48.85972904483143,47.37950456281228)
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=6.3942282279417615, lat=49.61693402777946, 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

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