R마크다운 과제

공간시각화 과제 결과물 보고

지서준

2025-12-02

유럽 여행 계획 세우기 보고서

한 달 간 유럽으로 여행을 갈 예정입니다. 여행때 방문할 도시와 기간, 경로등을 데이터로 만들고 원과 원의 크기, 선을 사용하여 지도위에 표현하였습니다.

데이터 시각화를 진행한 과정은 아래와 같습니다.

1. 데이터셋을 직접 만들었습니다; 도시(city), 위도(lat), 경도(lon), 체류일(day)

2. 방문도시는 베를린, 암스데르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.

3. 각 위도와 경도 정보는 구글 지도를 참고하였습니다.

4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정했습니다.

5. 체류일에 따라 원의 면적을 설정하였습니다. (ex.radius=~days*3000)

** 시각화의 결과는 아래와 같습니다. 코딩 결과도 함께 나타냈습니다. **

city <- c("베를린","암스테르담","브뤼셀","파리","취리히")
lat <- c(52.52219,52.37593, 50.84989, 48.86551, 47.37927)
lon <- c(13.37273, 4.90601,4.35653, 2.35870, 8.53708)
day <- c(1,3,2,15,10)

travel <- data.frame(City=city,Lat=lat,Lon=lon,Day=day)
map <- leaflet(data=travel) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% 
  setView(lng=7.8, lat= 50, zoom= 5)%>%
  addCircles(data=travel, lng =~Lon, lat=~Lat, radius=~day*3000, color="yellow")%>%
  addMiniMap(width = 150, height = 150)%>%
  addPolylines(lng = ~Lon, lat = ~Lat, color = "yellow", weight = 2, opacity = 0.5) ;map

이상 보고를 마칩니다. 감사합니다.