Mymaps

나의 유럽 방문 일정

library(leaflet)
city <- c("Frankfurt am Main","Gent","Le Mans","Madrid","Firenze")
lat <- c(50.11132487748069,51.05821204732107,48.00513445473048,40.41552,43.77405)
lon <- c(8.68134704065117,3.702879401846387,0.19726013864695247, -3.705993,11.25276)
days <- c(4,5,5,10,7)

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

프랑크푸르트 방문을 시작으로 유럽을 순회하는 여정이다.