Mymaps

나의 유럽 방문 일정

library(leaflet)
city <- c("Roma", "Firenze", "Venezia", "Milano", "Zürich", "Frankfurt am Main", "Lille", "Paris", "London")
lng <- c(12.4963655,10.945232,12.3155151,9.1859243,8.5391825,8.6821267,3.057256,2.3522219,-0.1277583)
lat <- c(41.9027835,43.652247,45.4408474,45.4654219,47.3686498,50.1109221,50.62925,48.856614,51.5073509)
days <- c(3,2,2,2,2,2,3,5,3)

travelPlan <- data.frame(city = city, lng = lng, lat = lat, days = days)

map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>%
  setView(lng=12.4963655, lat=44.9027835, zoom = 4.4) %>%
  addCircles(lng=~lng, lat=~lat, radius=~days*3000) %>%
  addMiniMap(width = 150, height = 150) %>% 
  addPolylines(lng=~lng, lat=~lat, weight=.5); map

이탈리아를 시작으로 영국까지 가는 유럽 일정이다.