tét1

R Markdown

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(leaflet)
city <- leafletcity <- c("Berlin","paris")
lat<-c(52.485908,48.812964)
lng <-c(13.526405, 2.521739)
days <- c(24, 7)
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