여름방학 유럽 여행 계획 시각화

library(leaflet)
city <-c("Budapest","Vienna","Prague","Frankfurt","Paris")
lat <-c(47.507723,48.202986267669836,50.077337426661025,50.10876667674213,48.856566667835665)
lng <-c(19.051217,16.36704068106035,14.42644896311851,8.676377240151036,2.3556149766516086)
days <-c(5,4,5,5,10)

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

이번 방학에는 헝가리의 부다페스트, 오스트리아의 비엔나, 체코의 프라하, 독일의 프랑크푸르트 그리고 마지막으로 프랑스의 파리 순으로 여행할 예정이다.