MyMaps

유럽 여행 경로 시각화

library(leaflet)
city <- c("Berlin","Paris","London","Roma","Madrid")
lat <- c(52.52,48.86,51.51, 41.91, 40.41)
lon <- c(13.41, 2.35, -0.12, 12.48, -3.71)
days <- c(5,3,5,6,9)
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

베를린,파리,런던,로마,마드리드 순으로 방문하는 유럽여행이다.