Mymaps

나의 유럽 방문 일정

library(leaflet)
map <- leaflet(); map

city<- c( "london", "paris", "amsterdam","rome","barcelona")
lat<- c( 51.5074, 48.8566, 52.36415, 41.9028, 41.3851)
lng<- c( -0.1278, 2.3522, 4.88163, 12.4964, 2.1734)
days<- c(5,4,6,7,9)

travelplan<- data.frame(city=city, lat=lat, lng=lng, days=days)
map<- leaflet(travelplan)%>% addTiles()%>% setView(lng= 2.3522, lat= 48.8566, zoom= 4) %>%addCircles(lng=lng, lat=lat, radius= days*2000, color= "red") %>%  addPolylines(lng=lng, lat=lat, weight= 5); map

런던 방문을 시작으로 유럽을 순회하는 여정이다.