3번 문제. 유럽 도시 여행 경로 지도 시각화

한 달 간 유럽으로 여행할 계획을 바탕으로, 방문할 도시와 체류일수를 지도 위에 표시하였습니다.
각 도시를 원으로 나타내며, 원의 크기는 해당 도시에서 머무는 일수에 비례합니다.
도시 간 경로는 선으로 연결하였습니다.

📍 사용한 데이터

europe_trip <- data.frame(
  city = c("베를린", "암스테르담", "브뤼셀", "파리", "취리히"),
  lat = c(52.52, 52.37, 50.85, 48.85, 47.37),
  lon = c(13.405, 4.895, 4.35, 2.35, 8.55),
  day = c(1, 3, 2, 15, 10)
)

#지도 시각화 관련 (Leaflet)
library(leaflet)

leaflet(data = europe_trip) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView(lng = 7, lat = 50, zoom = 5) %>%
  addCircles(
    lng = ~lon, lat = ~lat,
    radius = ~day * 3000,
    color = "yellow", fillOpacity = 0.7,
    label = ~paste(city, ": ", day, "일 체류")
  ) %>%
  addPolylines(
    lng = ~lon, lat = ~lat,
    weight = 2, color = "grey"
  )