Mymaps

나의 유럽 방문 일정

library(leaflet)
city <- c("Szczein", "Rostock", "Copenhagen", "Paris", "Rouen")
lat <- c(53.430503,54.097137,55.690127,48.860450,49.449009)
lng <- c(14.545644,12.076217,12.509722,2.342061,1.088709)
days <- c(5,6,7,5,5)

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="red")  %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lng, lat=~lat, weight=.5); map

슈체친 방문을 시작으로 유럽을 순회하는 여정이다.