Untitled

데분기 과제

library(leaflet)
city <- c("Berlin", "Paris", "Madrid", "Bern", "Praha")
lat<-c(52.52093679801944, 48.855662981781194, 40.42372477073931, 46.94636118032149,  50.07938530724583)
lng<-c(13.448755209403437,  2.3315829722657484, -3.665815351616861, 7.457074512587122, 14.46698751987398)
days <- c(3,5,4,3,3)
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