myeuropetrip

#나의 유럽 여행 경로

library("leaflet")

## Warning: 패키지 'leaflet'는 R 버전 4.3.3에서 작성되었습니다

city <-c("London", "Paris", "Stuttgart", "Praha", "Budapest")
lat<-c(51.494634, 48.874746,48.748660,49.992566, 47.471559)
lng<-c(-0.014683, 2.504131, 9.043351, 14.429579, 18.780165)
days<-c(14,5,7,6,3)

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*5000,color="coral")%>%addMiniMap(width=150,height=150)%>%addPolylines(lng=lng,lat=lat,weight=3);map

이번 유럽 여행은 런던에서 시작할 예정이다. 런던에서는 박물관, 미술관 등을 방문하고자 한다. 세계적인 작품들과 유물을 관람할 생각이다. 그리고 파리는 에펠탑을 보러가기 위해 방문한다.에펠탑이 얼마나 큰지 확인할 생각이다. 슈트트가르트는 독일의 도시 중 하나로 소세지를 먹어보기 위해 방문하고 프라하와 부다페스트에서는 왜인지 모르게 사진이 잘 나올 것 같아 두 도시에서는 사진을 많이 찍을 예정이다.