Mymapsminhanh

나의 유럽을 방문 일정

library(leaflet)
city <- c("Berlin","Amsterdam","Herning","Paris","Tour Eiffer", "Strasbourg")
lat <- c(52.5197,52.3571,56.144319,48.8670,48.857129, 48.589399) 
lon <- c(13.4177,4.9002,9.007020,2.3820,2.299448, 7.773049) 
days <- c(1,3,2,15,5,5) 


travelPlan <- data.frame(city = city, lat = lat, lon = lon, days = days) 

map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng=7.9477, lat=50.0917, zoom = 5) %>% addCircles(lng=~lon, lat=~lat, radius=~days*3000, color = "yellow") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lon, lat=~lat, weight=.5, color = "yellow") ; map

베를린 방문을 시작으로 여행하고 쇼핑을 하는 여정이다.