패키지 로드 및 지저분한 메시지 가리기 세팅

knitr::opts_chunk$set(echo = TRUE, warning = FALSE, message = FALSE) library(ggplot2) library(dplyr) library(leaflet)

1. 유럽 5대 도시 데이터셋 생성

europe_trip <- data.frame( city = c(“베를린”, “암스테르담”, “브뤼셀”, “파리”, “취리히”), lat = c(52.5200, 52.3676, 50.8503, 48.8566, 47.3769), lon = c(13.4050, 4.9041, 4.3517, 2.3522, 8.5417),
day = c(1, 3, 2, 15, 10) )

2. Leaflet 지도 생성 (가장 안전한 addTiles 기본형으로 변경)

map <- leaflet(europe_trip) %>% addTiles() %>% # setView(lng = 7.5, lat = 50.0, zoom = 5) %>%
addCircles(lng = ~lon, lat = ~lat, radius = ~day * 3000, color = ‘darkblue’, popup = ~paste(“도시:”, city, “
체류일:”, day, “일”)) %>% addPolylines(lng = ~lon, lat = ~lat, weight = 2, color = ‘red’)

최종 출력

map

#보고사항 1. 보고사항 1. 유럽 여행 경로 시각화 및 체류일 분석 유럽 주요 관광 도시들의 방문 순서에 따른 이동 경로를 파악하고, 각 도시별 체류 기간을 직관적으로 비교하기 위해 Leaflet 인터랙티브 지도를 사용하여 시각화 해봤습니다. 조건은 아래와 같이 설정하였습니다.

방문 순서(베를린 -> 암스테르담 -> 브뤼셀 -> 파리 -> 취리히)대로 적색 선 연결 도시별 체류일(day)에 비례하여 원의 크기(radius)가 다르게 나타나도록 설정 원을 클릭하면 도시명과 상세 체류일이 팝업으로 표시되도록 처리 배경 지도는 깔끔한 구조의 CartoDB.Positron 타일 사용

#2. 시각화결과 시각화 결과, 아래와 같은 특징을 발견할 수 있었습니다.

  1. 체류일 분포: 프랑스 파리(15일)와 스위스 취리히(10일)의 체류 기간이 상대적으로 길어 지도 상에서 원의 크기가 가장 크게 나타납니다.
  2. 이동 경로: 독일 베를린에서 출발하여 암스테르담, 브뤼셀, 파리를 거쳐 취리히로 이어지는 서유럽 중심의 동선이 적색 선으로 명확히 연결됩니다.

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

** 시각화의 결과는 아래의 코딩 결과와 같습니다.** europe_trip <- data.frame( city = c(“베를린”, “암스테르담”, “브뤼셀”, “파리”, “취리히”), lat = c(52.5200, 52.3676, 50.8503, 48.8566, 47.3769), lon = c(13.4050, 4.9041, 4.3517, 2.3522, 8.5417),
day = c(1, 3, 2, 15, 10) )

map <- leaflet(europe_trip) %>% addTiles() %>% # setView(lng = 7.5, lat = 50.0, zoom = 5) %>%
addCircles(lng = ~lon, lat = ~lat, radius = ~day * 3000, color = ‘darkblue’, popup = ~paste(“도시:”, city, “
체류일:”, day, “일”)) %>% addPolylines(lng = ~lon, lat = ~lat, weight = 2, color = ‘red’)

map