프랑스 여행 경로 시각화

library(leaflet)
city <- c("Paris", "Nantes","Montpellier","Marseille","Nice","Lyon")
lat <- c(48.852992, 47.2195879, 43.6140852, 43.3019097, 43.7090833, 45.7639227)
lng <- c(2.349874, -1.5472393, 3.8723316, 5.3747982, 7.2698221, 4.8224864)
days <- c(10,4,4,5,4,4)

travelPlan<-data.frame(city = city, lat=lat, lng = lng, days = days)
map <- leaflet(travelPlan) %>% addProviderTiles(providers$CartoDB.Positron) %>% setView(lng = 2.5048399, lat = 46.6168437, zoom = 5) %>% addCircles(lng =~lng, lat=~lat, radius = ~days*2000, color ="purple") %>%addMiniMap(width = 150, height = 150) %>% addPolylines(lng=~lng, lat=~lat, weight = .5);map

파리를 시작으로 남프랑스를 경유해 리옹을 방문하는 프랑스 여행 계획이다.