나의 여행 동선과 일정
library(leaflet)
city <- c("Potsdam", "Versailles", "London", "Madrid", "Malaga")
lat <- c(52.390672, 48.802736, 51.500903, 40.419020, 36.705363)
lng <- c(13.058917, 2.132074, -0.125940, -3.696031, -4.472174)
days <- c(10, 15, 11, 12, 6)
travelPlan <- data.frame(City = city, LNG = lng, LAT = lat, Days = days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=6.146294, lat=46.203021, zoom = 4) %>% addCircles(lng=~LNG, lat=~LAT, radius=~Days*6000, color="yellow") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~LNG, lat=~LAT, weight=.5, color="yellow"); map
독일을 시작으로 프랑스, 영국, 스페인 순서대로 이동한다. 스페인은
2개의 도시를 방문한다.