mymaps

나의 유럽 방문 일점

library(leaflet)
city <- c("Paris", "Berlin", "Sverige", "Deutschland", "Canada")
lat <- c( 48.871803902216435, 52.514343644687685, 62.97876706326849, 51.08461432900077,57.846291828072246 )
lon <- c(2.350879470384976, 13.412769909042522,16.643175379819347, 10.255008129430477, -100.83398407997517)
days <- c(1,3,2,15,5)
travePlan <- data.frame(city=city, lat=lat, lon=lon, days=days)
map <- leaflet(travePlan) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(lng = 7.9477, 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

파리 방문 시작으로 유럽을 순회하는 여정이다