maps_BAE

#My trael plan

library(leaflet)
city  <- c("Berlin", "Amsterdom", "Bruxelles","Paris","Zürich")
lat <- c(52.5197,52.3571, 50.8759,48.867,47.3828)
lon <- c(13.4177,4.9002,4.3448,2.3820,8.5556)
days <- c(1,3,2,15,10)

travelPlan <- data.frame(city = city, lat = lat, lon = lon, days = days)
map <- leaflet() %>% setView(lng = 2.3522, lat = 48.8566, zoom = 4)
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

####블레스 매장 꼭 가보자