R실습_지도 만들기(2)_마커

 

## 데이터 GPX 좌표 입력 ##
gps <- read.csv('gps_2020-2022.csv') %>% as_tibble

 

## 공원별로 색 변경하기, code필드를 이용한 구분  ##
pal <- colorFactor("viridis", gps$Code)

leaflet(gps) %>%
  setView(lng=126.9784, lat=37.566, zoom=11) %>%
  addProviderTiles('CartoDB.Positron') %>%
  addCircles(lng=~long, lat=~lat, color=~pal(Code))

 

 

 

## 기초 원본, 원표시 + 미니맵 ##
l <- leaflet(gps) %>% setView(0,0,1)

esri <- grep("^Esri", providers, value = TRUE)

for (provider in esri) {
  l <- l %>% addProviderTiles(provider, group = provider)
}

l %>%
  addLayersControl(baseGroups = names(esri),
                   options = layersControlOptions(collapsed = FALSE)) %>%
  addMiniMap(tiles = esri[[1]], toggleDisplay = TRUE,
             position = "bottomleft") %>%
  addCircles(lng=~long, lat=~lat, color=~pal(Code))
  htmlwidgets::onRender("
    function(el, x) {
      var myMap = this;
      myMap.on('baselayerchange',
        function (e) {
          myMap.minimap.changeLayer(L.tileLayer.provider(e.name));
        })
    }")

 

 

 ## 마커 모양 수정, 색상,  ##
  l <- leaflet(gps) %>% setView(lng=126.9784, lat=37.566, zoom=6) 
  
  esri <- grep("^Esri", providers, value = TRUE)
  
  for (provider in esri) {
    l <- l %>% addProviderTiles(provider, group = provider)
  }
  
  l %>%
    addLayersControl(baseGroups = names(esri),
                     options = layersControlOptions(collapsed = FALSE)) %>%
    addAwesomeMarkers(lng=~long, lat=~lat, icon=awesomeIcons(icon="tree-conifer", markerColor="red"), popup=~ID, label=~ID)
  htmlwidgets::onRender("
    function(el, x) {
      var myMap = this;
      myMap.on('baselayerchange',
        function (e) {
          myMap.minimap.changeLayer(L.tileLayer.provider(e.name));
        })
    }")

 

 

마커 아이콘 모양 더 찾아보기

https://www.glyphicons.com/sets/basic/

Basic set

 

 

참고사이트

https://rstudio.github.io/leaflet/markers.html

https://github.com/lennardv2/Leaflet.awesome-markers​