본문 바로가기
  • "You can't manage what you can't measure" Peter Drucker
데이터 분석 (with Rstudio)

[Rstudio] 리플렛 지도 위치 표시 (Marking with leaflet package)

by Vitaminymc 2023. 12. 19.
반응형

 

[위도, 경도 정보로 지도에 위치 표시하기]

Leaflet은 인터랙티브(Interactive) 웹 지도를 만들기 위한 JavaScript 라이브러리 중 하나이다.

Leaflet은 간단하게 사용할 수 있으며, 여러 가지 맵 데이터를 시각적으로 나타내기 위한 다양한 기능을 제공한다.

 

주로 사용되는 OpenStreetMap은 오픈 데이터 소스로 일반적으로 권리 없음(CC0) 또는 유사한 라이선스로 제공된다.

 

사용 데이터 : 2023.12.19 - [데이터 분석 (with Rstudio)] - K리그 축구장 주소 및 위경도 (with Rstudio API)

 

K리그 축구장 주소 및 위경도 (with Rstudio API)

[K리그 축구장 주소 및 위도 경도 찾기] [K리그1 : 12개팀] [팀명 및 구장명 불러오기] library(tidyverse) input_loca

logistician.tistory.com

 

[K리그1 축구 경기장 위치 지도 표시]

[addMarkers + Esri.WorldImagery (위성지도)]

library(tidyverse)
library(leaflet)

FC_location %>%
  filter (league == "K-League1") %>%
  leaflet() %>%
  setView(lng=127.4676, lat=36.48084, zoom=7) %>%
  addMarkers(lng = ~lon, lat = ~lat, label = ~place)  %>%
  addProviderTiles("Esri.WorldImagery")

K리그1 축구 경기장 위치

[OpenStreetMap (Street Maps)]

 addProviderTiles("Esri.WorldImagery")을 addProviderTiles("OpenStreetMap")로변경

K리그1 축구 경기장 위치

[CartoDB.Positron (흰색 배경 지도)]

K리그1 축구 경기장 위치

[labelOptions]

labelOptions(noHide = TRUE)를 사용하여 레이블이 계속해서 표시되도록 설정

FC_location %>%
  filter (league == "K-League1") %>%
  leaflet() %>%
  addTiles() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addCircles (lng = ~lon, lat = ~lat, radius = 200, 
              label = ~place, labelOptions = labelOptions(noHide = TRUE))  %>%
  addProviderTiles("Esri.WorldImagery")

K리그1 수도권팀

서울 경기 지역으로 Zoom-In


[K리그2 축구 경기장 위치 지도 표시]

[addCircles]

FC_location %>%
  filter (league == "K-League2") %>%
  leaflet() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addCircles (lng = ~lon, lat = ~lat, radius = 200, 
          label = ~place, labelOptions = labelOptions(noHide = TRUE))  %>%
  addProviderTiles("CartoDB.Positron")

K리그2 수도권팀

 

 

[clusterOptions]

Zoom In/out을 하면 지도에 표시된 다수의 마커를 클러스터로 그룹화하여 적절한 수의 마커를 보여준다.

FC_location %>%
  filter (league == "K-League2") %>%
  leaflet() %>%
  addTiles() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addMarkers(lng = ~lon, lat = ~lat, label = ~place, clusterOptions = markerClusterOptions())  %>%
  addProviderTiles("CartoDB.Positron")

 

K리그2 수도권팀
K리그2 수도권 충청권 팀

목동 운동장과 부천 종합 운동장이 클러스팅되어 표시되고

천안 종합 운동장과 아산 이순신 종합 운동장이 클러스팅되어 표시되었다.


[경기장 주소/위치 정보 및 Interactive map] 

Zoom-In/Out 및 경기장 위성 사진

아래 링크에서 확인

RPubs - K리그 축구장 주소 및 위경도 (Marking with leaflet package)

 

RPubs - K리그 축구장 주소 및 위경도 (Marking with leaflet package)

 

rpubs.com

Image source : 픽사베이 / 지도

Pixabay로부터 입수된 digital designer님의 이미지

728x90