##한 달 유럽여행 코스 시각화

library(leaflet)
library(dplyr)
## 
## 다음의 패키지를 부착합니다: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
city<-c("Roma","Budapest","Munchen","Brugge","London")
lat<-c(41.896189, 47.505733, 48.136772, 51.209097, 51.506202)
lng<-c(12.482349, 19.045020, 11.576905, 3.224741, -0.127055 )
days<-c(6,7,5,4,9)

travelPlan<-data.frame(city=city, lat=lat, lng=lng, days=days)

map<-leaflet(travelPlan) %>% addTiles() %>% setView(lng=8.817423, lat=51.028658, zoom = 4) %>% addCircles(lat=~lat, lng=~lng, radius=~days*2000) %>% addMiniMap(width = 150, height = 150) %>% addPolylines(lat=~lat, lng=~lng, weight=.5);map

첫번째로 갈 도시는 이탈리아의 로마. 베네치아 궁전, 포로로마노, 콜로세움, 바티칸 박물관 등을 둘러보며 유적지 구경. 티라미슈, 젤라또 먹기

두번째로 갈 도시는 헝가리의 부다페스트. 국회의사당(유람선), 어부의 요새, 성 이슈트반 대성당 구경하고, 온천 가기

세번째로 갈 도시는 독일의 뮌헨.국립독일박물관, BMW박물관, 마리엔플라츠 광장 가보기, 막시밀리안 거리에서 쇼핑하기

네번째로 갈 도시는 벨기에의 브뤼헤, 벨포트(종루), 세인트존스 병원 구경하기, 마켓스퀘어 가기, 초콜릿 박물관 갔다가 와플 먹기

다섯번째로 갈 도시는 영국의 런던, 런던아이에서 놀기, 스타디움 구장 투어, 뮤지컬 보기, 해리포터 스튜디오 가기