[Rstudio] 리플렛(leaflet) 지도 종류 설정 (한국 관광 100선 위치)

[Leaflet map type 지도 유형]

addProviderTiles(providers${FORMAT})

Format에 지도 유형(종류)을 선택

leaflet() %>%   setView(lng=127.4676, lat=36, zoom=7) %>%   addProviderTiles( providers${FORMAT}) leaflet() %>%   setView(lng=127.4676, lat=36, zoom=7) %>%   addTiles() %>%   addProviderTiles( providers${FORMAT})

[사용 데이터 : 23_24 한국 관광100선, 100대 명소]

한국관광공사가 선정한 지역별 인기 유명 관광지 (대한민국 100대 + 알파 관광명소 소개)
문화체육관광부와 한국관광공사가 한국인이 꼭 가봐야 할 관광지 약 100개를 2년에 한 번씩 선정

출처 : https://korean.visitkorea.or.kr/main/main.do

국내여행의 믿을 구석, 대한민국 구석구석

[한국 관광 100선 Interactive leaflet 지도 다운로드]

visit_Korea_by_ymc.html

1.21MB

---

[Esri.NatGeoWorldMap]

library(tidyverse)
library(leaflet)

visitkorea <- read.csv('visitkorea.csv', fileEncoding = 'cp949')

visitkorea  %>%
  leaflet() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addCircleMarkers(lng = ~lon, lat = ~lat, radius = 7, 
                   fillOpacity = 0.8, stroke = FALSE,
                   color = "#0D3692",
                   label = ~place) %>%
  addProviderTiles(providers$Esri.NatGeoWorldMap)

Esri.NatGeoWorldMap

[Stadia.Outdoors]

pal <- colorFactor(
  c("#0D3692", "#0D3692", "#33A23D","#33A23D",
    "#FE5B10", "#33A23D", "#8B50A4", "#33A23D", "#32A1C8",
    "#8B50A4", "#33A23D", "#0D3692",
    "#FE5B10", "#FE5B10", "#FE5B10", "#8B50A4", "#8B50A4"), 
  domain = c('강원', '경기', '경남', '경북', 
             '광주', '대구',  '대전', '부산', '서울',
             '세종', '울산', '인천',
             '전남', '전북', '제주', '충남', '충북' )
  )
  
  visitkorea  %>%
  leaflet() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addCircleMarkers(lng = ~lon, lat = ~lat, radius = 10, 
                   fillOpacity = 0.8, stroke = FALSE,
                   color = ~pal(region),
                   label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

 

[한국 관광 100선 Interactive map]

Zoom-In/Out 위성 사진 및 위치 확인, 지역별 검색
(강원, 경기, 경남, 경북, 광주, 대구, 대전, 부산, 서울, 세종, 울산, 인천, 전남, 전북, 제주, 충남, 충북)
아래 링크에서 확인
https://rpubs.com/Vitamin_YMC/visitkorea

RPubs - visit S.Korea (한국관광100선)

---

[OpenStreetMap]

leaflet() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addProviderTiles(providers$OpenStreetMap)

OpenStreetMap

[OPNVKarte]

OPNVKarte

[OpenTopoMap]

OpenTopoMap

 

[Stadia]

Stadia

[CyclOSM]

CyclOSM

[Esri]

Esri

[Esri.WorldTerrain]

Esri.WorldTerrain

[Esri.WorldImagery]

Esri.WorldImagery

[MtbMap]

MtbMap

[CartoDB]

CartoDB

[CartoDB.Voyager]

GeoportailFrance

 

[GeoportailFrance]

GeoportailFrance

[USGS]

USGS

[USGS.USImagery]

USGS.USImagery

[OpenRailwayMap]

leaflet() %>%
  setView(lng=127.4676, lat=36, zoom=7) %>%
  addTiles() %>%  #background map을 추가
  addProviderTiles(providers$OpenRailwayMap)

OpenRailwayMap