Mymaps

나의 유럽 방문 일정

library(leaflet)
city <- c("Berlin", "Amsterdam", "Bruxelles", "Paris", "Zürich","Nanterre")
lat <- c(52.5197, 52.3571, 50.8759, 48.8670, 47.3828,48.891308)
lon <- c(13.4177, 4.9002, 4.3448, 2.3820, 8.5556,2.212391)
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 = 0.5, color = "yellow");map

베를린 방문을 시작으로 유럽을 순회하는 여정이다.