My Maps

나의 유럽 방문 일정

library(leaflet)
city<-c("Dresden","Leipzig","Brussels","London","Edinburgh")
lat<-c(51.058667,51.340558,50.847284,51.513275,55.926462)
lng<-c(13.714296,12.372890,4.361970,-0.098476,-3.233735)
days<-c(5,5,7,8,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*3000,color="red")%>%addMiniMap(width=150,height=150)%>%addPolylines(lng=~lng,lat=~lat,weight=0.5);map

독일을 방문하고 벨기에, 런던까지 방문합니다.