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

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

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

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

1. 데이터셋을 직접 만들었습니다. 도시(city), 위도(lat), 경도(lon), 체류일(day)
2. 방문도시는 베를린, 암스테르담, 브뤼셀, 파리, 취리히 순으로 정리하였습니다.
3. 각 도시의 위도와 경도 정보는 구글 지도를 참고하였습니다.
4. 각 도시별 머무는 체류일은 베를린 1일, 암스테르담 3일, 브뤼셀 2일, 파리 15일, 취리히 10일로 지정했습니다.
5. 체류일에 따라 원의 면적을 설정하였습니다. (ex. radius = day * 3000)

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

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.4.3

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.4.3

## 
## Attaching package: '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("Berlin", "Amsterdam", "Brussels", "Paris", "Zurich")
lat  <- c(52.5197, 52.3571, 50.8759, 48.8670, 47.3828)
lon  <- c(13.4177, 4.9002, 4.3448, 2.3820, 8.5556)
day  <- c(1, 3, 2, 15, 10)

travelPlan <- data.frame(
  city = city,
  lat = lat,
  lon = lon,
  day = day
)

map <- leaflet(travelPlan) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView(lng = 7.9477, lat = 50.0917, zoom = 5) %>%
  addCircles(
    lng = ~lon,
    lat = ~lat,
    radius = ~day * 3000,
    color = "yellow",
    fillOpacity = 0.7
  ) %>%
  addPolylines(
    lng = ~lon,
    lat = ~lat,
    weight = 5,
    color = "yellow"
  ) %>%
  addMiniMap(width = 150, height = 150)

map