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

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

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

  1. 데이터셋을 직접 만들었습니다: 도시(city), 위도(lat), 경도(lon), 체류일(day)
  2. 방문 도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.
  3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.
  4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정했습니다.
  5. 체류일에 따라 원의 면적을 설정하였습니다. (ex. radius=~day*3000)

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

# 데이터프레임 만들기
city <- c("베를린", "암스테르담", "브뤼셀", "파리", "취리히")
lat <- c(52.5200, 52.3676, 50.8503, 48.8566, 47.3769)
lon <- c(13.4050, 4.9041, 4.3517, 2.3522, 8.5417)
day <- c(1, 3, 2, 15, 10)
travel.data <- data.frame(city, lat, lon, day)

# 지도 시각화
map <- leaflet(travel.data) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView(lng = 7.0, lat = 50.0, zoom = 5) %>%
  
  #원 그리기
  addCircles(lng = ~lon, lat = ~lat,
             radius = ~day * 3000,
             color = "yellow",
             weight = 8,
             fillOpacity = 0.3,
             popup = ~paste("방문 도시:", city, "<br>체류 기간:", day, "일")) %>%
             
  #경로 선 그리기
  addPolylines(lng = ~lon, lat = ~lat,
               color = "yellow",
               weight = 1,
               opacity = 0.5) %>%
               
  #미니맵 추가
  addMiniMap(width = 150, height = 150)

#출력
map

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