18차 과제

14주차 과제 결과물인 유럽 여행 경로 지도입니다.

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.5.3

travelplan <- data.frame(
  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),
  days = c(1, 3, 2, 15, 10))

map1 <- leaflet(travelplan) %>% 
  addTiles() %>% 
  setView(lng = 8.0, lat = 50.0, zoom = 5) %>% 
  addCircles(
    lng = ~lon, lat = ~lat, 
    radius = ~days * 3000,
    color = "yellow", fillColor = "yellow", fillOpacity = 0.5,
    popup = ~paste(city, "-", days, "체류일")
  ) %>% 
  addPolylines(lng = ~lon, lat = ~lat, color = "yellow", weight = 2)

map1