유럽 여행 경로 시각화 지도

library(leaflet)
city <- c("London","Amsterdam","København","Berlin","Praha")
lat <- c(51.39095427832438,52.36734040252435,55.66719117134527,52.511401151579776,50.07506987760919)
lng <- c(0.13244585154456992,4.909781866078647,12.84983388779225,13.45625836245018,14.447708481688691)
days <-c (3,4,7,5,6)

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

여름방학동안 가보고 싶었던 5개의 유럽 여행지를 다녀올 계획이다.

영국 런던에서 시작해 네덜란드 암스테르담, 덴마크의 코펜하겐, 독일의 베를린을 거쳐 체코 프라하에서 여행을 마무리 할 것이다.

총 25일간의 여정으로, 각각 3일, 4일, 7일, 5일, 6일을 머무를 예정이다.