공간시각화 과제 결과물 보고

library(leaflet)
library(dplyr)


city <- c("Berlin", "Amsterdam", "Bruxelles", "Paris", "Zürich")
lat  <- c(52.5197, 52.3571, 50.8759, 48.8670, 47.3828)
lng  <- c(13.4177, 4.9002, 4.3448, 2.3820, 8.5556)
days <- c(1, 3, 2, 15, 10)

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

##        city     lat     lng days
## 1    Berlin 52.5197 13.4177    1
## 2 Amsterdam 52.3571  4.9002    3
## 3 Bruxelles 50.8759  4.3448    2
## 4     Paris 48.8670  2.3820   15
## 5    Zürich 47.3828  8.5556   10

map <- leaflet(travelPlan) %>% 
  addProviderTiles(providers$CartoDB.DarkMatter) %>% 
  setView(lng = 7.9477, lat = 50.0917, zoom = 5) %>% 
  addCircles(lng = ~lng, lat = ~lat, 
             radius = ~days*3000, 
             color = "yellow") %>% 
  addMiniMap(width = 150, height = 150) %>% 
  addPolylines(lng = ~lng, lat = ~lat, 
               weight = .5, 
               color = "yellow"); map