Mymap

#나의 유럽 방문 일정

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

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

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