공간시각화 과제 결과물 보고

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

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

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

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

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

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

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

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

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

euro_trip <- data.frame(
  city = c("Berlin", "Amsterdam", "Brussels", "Paris", "Zurich"),
  lat = c(52.493307759620905, 52.37600989785186, 50.88577280310938, 48.87735539606578, 47.38278866604239),
  lon = c(13.388891809410872, 4.908044926674293, 4.3575544022801855, 2.3428757023369196, 8.560424769566312),
  day = c(1, 3, 2, 15, 10)
)

map3 <- leaflet(euro_trip) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView(lng = 5.0, lat = 50.0, zoom = 5) %>%
  addCircleMarkers(
    lng = ~lon, 
    lat = ~lat, 
    radius = ~day,
    fillOpacity = 0.5,
    stroke = TRUE,
    color = "yellow"
  ) %>%
  addPolylines(
    lng = ~lon, 
    lat = ~lat, 
    weight = 1,
    color = "yellow"
  ) %>%
  addMiniMap(width = 150, height = 150);map3

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