mytrip

나의 유럽 방문 일정

library(leaflet)

city<- c("Paris", "Lyon", "Nice", "Nantes", "Lille")
lat<- c(48.857665, 45.76511, 45.79501, 47.22025, 50.631631055)
lng<- c(2.356653,4.8585092, 4.7575583, -1.5424854248, 3.0606715)
days<-c(5,5,5,5,10)

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

##파리부터 시작해서 리옹, 니스, 낭트, 릴을 순회할 예정이다.