library(leaflet)
city <- c("singapore", "shanghai","polska","london","paris","switzerland","italia","vatican", "vietnam")
lat <- c(1.3258924540747612,31.194476964843,52.92582861594966,51.52081775661076,48.859640909395864,46.812902907174156,43.01846598320012,41.90216851437949,21.02577907885921 )
lng <- c(103.8219612469487,121.47368166069533,18.133294182737046,-0.12607713199344756,2.3483929944633166,7.831238023306983,12.478151207530306,12.453790172889496,105.83370076165392)
days <- c(10,7,7,6,7,7,7,5,4)
travelPlan <- data.frame(city=city, lat=lat, lng=lng, days=days)
map <- leaflet(travelPlan)%>% addProviderTiles(providers$CartoDB.Positron)%>% setView(lng=8.817423, lat= 52.028658, zoom= 4) %>% addCircles(lng=lng, lat=lat, radius = days*2000) %>% addMiniMap(width = 150, height=150) %>% addPolylines(lng=lng, lat=lat, weight = .5); map map