my maps

유럽 여행 경로 시각화

library(leaflet) city <- c(“Milano”,“Paris”,“Bruxelles”,“Amsterdam”,“Praha”) lat <- c(45.4655,48.8533,50.8759,52.3730,50.0653) lon <- c(9.1825,2.3635,4.3448,4.9002,14.4298) days <- c(1,4,6,12,16)

travelPlan <- data.frame(city = city, lat = lat, lon = lon, days = days) map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng=8.9477, lat=51.2146,zoom = 5) %>% addCircles(lng=~lon, lat=~lat, radius=~days*3000, color = “blue”) %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lon, lat=~lat, weight=.5, color = “black”); map

library(leaflet)
city <- c("Milano","Paris","Bruxelles","Amsterdam","Praha")
lat <- c(45.4655,48.8533,50.8759,52.3730,50.0653)
lon <- c(9.1825,2.3635,4.3448,4.9002,14.4298)
days <- c(1,4,6,12,16)

travelPlan <- data.frame(city = city, lat = lat, lon = lon, days = days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng=8.9477, lat=51.2146,zoom = 5) %>% addCircles(lng=~lon, lat=~lat, radius=~days*3000, color = "blue") %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lon, lat=~lat, weight=.5, color = "black"); map