Mymap

나의 유럽 방문 일정

library(leaflet)
city<-c("London","Berlin","Paris","Rome","Amsterdam")
lat<-c(51.503723,52.525679,48.856300,41.899973,52.370468)
lng<-c(0.122865,13.403729,2.350369,12.479282,4.901375)
days<-c(24,7,10,5,7)
travelplan<-data.frame(city=city,lat=lat,lng=lng,days=days)
map <- leaflet(travelplan) %>% addProviderTiles(providers$CartoDB.Positron) %>%setView(lng=49.909897, lat=0.703753, zoom = 7) %>% addCircles(lng=~lng, lat=~lat, radius=~days*2000,color="blue")%>%addMiniMap(width=150,height=150)%>%addPolylines(lng=lng,lat=lat,weight=.5); map

####런던 방문을 시작으로 베를린,파리,로마,암스테르담 까지 유럽을 순회할 여정이다.