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

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

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

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

  1. 방문 도시는 베를린 암스테르담, 파리, 취리히 순으로 정리했습니다.

  2. 각 위도와 경도 정보는 구글 지도를 참고했습니다.

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

  4. 체류일에 따라 원의 면적을 설정하였습니다.

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

europe_trip <- data.frame(
  city = c("Berlin", "Amsterdam", "Brussels", "Paris", "Zurich"),
  lat = c(52.502141, 52.385950, 50.854660, 48.868969, 47.391824),
  lon = c(13.454670, 4.959276, 4.377474, 2.342952, 8.532613),
  days = c(1, 3, 2, 15, 10)
)

trip_pal <- colorFactor("yellow", domain = europe_trip$city)

map <- leaflet(europe_trip) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView(lng = 7.0, lat = 50.0, zoom = 5) %>%
  addCircles(
    lng = ~lon,
    lat = ~lat,
    radius = ~days * 3000,
    color = ~trip_pal(city),
    popup = ~paste0(city, "<br>체류일: ", days)
  ) %>%
  addPolylines(
    lng = ~lon,
    lat = ~lat,
    color = "yellow",
    weight = 2
  ) %>%
  addLegend(
    "bottomright",
    pal = trip_pal,
    values = ~city,
    title = "여행 도시",
    opacity = 1
  )

map

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