Mymaps

나의 유럽 방문 일정

library(leaflet)
city<- c("paris", "london", "berlin", "mexico", "america")
lat<- c(48.8566, 51.5109, 52.54915, 24.66703, 39.59769)
lng<- c(2.3522, -0.14116, 13.38077, -102.00276, -101.47541)
days<- c(5,4,7,6,8)

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

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