Mymap

유럽 여행 경로 시각화

library(leaflet)
city <- c("London","Praha","Amsterdam","Roma","Paris")
lat <- c(51.50970,50.06662,52.40313,41.90205,48.86110)
lon <- c(-0.10866,14.41049,4.94497,12.51104,2.35385)
days <- c(1,3,2,15,10)

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