유럽 여행 가보자고~
library(leaflet)
city<-c("Helsinki","Praha","Roma","Porto","Athens")
lng<-c(24.9384,14.4153,12.4839,-8.6198,23.7303)
lat<-c(60.2055,50.0851,41.8982,41.1528,37.9709)
days<-c(10,3,4,8,5)
travelPlan<-data.frame(city=city,lat=lat,lng=lng,days=days)
map<-leaflet(travelPlan)%>%addProviderTiles(providers$CartoDB.DarkMatter)%>%setView(lng=18.09,lat=48.95,zoom=3)%>%addCircles(lng=~lng,lat=~lat,radius=~days*2000,color="#FF00AA")%>%addMiniMap(width=150,height=150)%>%addPolylines(lng=~lng,lat=~lat,weight=.5);map
겨울과 눈을 좋아하는 내가 가장 가보고 싶었던 핀란드의 헬싱키가 유럽
여행의 첫 도착지이다. 그리고 체코의 프라하, 이탈리아의 로마, 포르투갈의
포르투, 그리스의 아테네를 순서로 여행할 것이다.
포르투갈의 에그타르트가 정말로 맛있다고 해서 가면 아침, 점심, 저녁
삼시세끼 모두 에그타르트를 먹을 것이다.