유럽 여행 경로 시각화

library(leaflet)
city<-c("Berlin","Paris","Barcelona","Roma","Interlaken")
lat<-c(52.52007165774689,48.85757961967666,41.38787353514189,41.89666592878793,46.68633987989211)
lng<-c(13.40288704991808,2.3514361441134977,2.1661064838370048,12.479679193309016,7.863698467568045)
days<- c(6,10,8,7,7)

travelPlan <-data.frame(city = city, lat = lat, lng = lng, days = days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng=7.801729768013838, lat=46.831977780993775, zoom = 4)%>% addCircles(lng=~lng, lat=~lat, radius=~days*2000,color="red")%>%addMiniMap(width=150, height=150)%>%addPolylines(lng=~lng, lat=~lat, weight=.5);map

베를린을 시작으로 파리를 거쳐 바르셀로나에 방문한 후, 로마에 갔다가 인터라켄을 마지막으로 유럽에 방문한다.