[Rstudio] 리플렛(leaflet) Marking Icon 설정

[Leaflet Marking Icon 리플렛  마커, 아이콘]

사용 데이터 : 23_24 한국 관광100선 

[기본 마커, 아이콘 (Icon) :  addMarkers]

library(tidyverse)
library(htmlTable)

visitkorea %>%
  filter (region == "서울") %>%
  select (region, place, addr, road_addr) %>%
  arrange(addr) %>%
  addHtmlTableStyle(align = "cll",
                    align.header = "ccl",
                    col.rgroup = c("none", "#F7F7F7"),
                    pos.caption = "bottom"
                    ) %>% 
  htmlTable(caption = "서울 주요 관광지")
  
library(leaflet)

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addMarkers (lng = ~lon, lat = ~lat,
                     label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

1	서울	스타필드 코엑스몰	서울 강남구 삼성동 159	서울 강남구 영동대로 513
2	서울	홍대패션거리	서울 마포구 서교동 348-78
3	서울	서울숲	서울 성동구 성수동1가 678-1
4	서울	롯데월드타워	서울 송파구 신천동 29	서울 송파구 올림픽로 300
5	서울	롯데월드	서울 송파구 잠실동 40-1	서울 송파구 올림픽로 240
6	서울	남산서울타워	서울 용산구 용산동2가 산 1-3
7	서울	청와대 춘추문	서울 종로구 세종로 1
8	서울	경복궁	서울 종로구 세종로 1-1	서울 종로구 사직로 161
9	서울	경희궁	서울 종로구 신문로2가 2-1	서울 종로구 새문안로 45
10	서울	창경궁	서울 종로구 와룡동 2-1	서울 종로구 창경궁로 185
11	서울	창덕궁	서울 종로구 와룡동 2-71	서울 종로구 율곡로 99
12	서울	익선동한옥거리	서울 종로구 익선동
13	서울	서촌한옥마을	서울 종로구 통의동
14	서울	동대문디자인플라자	서울 중구 을지로7가 2-1	서울 중구 을지로 281
15	서울	덕수궁	서울 중구 정동 5-1	서울 중구 세종대로 99

 

[Circle 원형 마커 : addCircleMarkers]

radius : 원형 마커의 반지름을 픽셀로 설정
fillOpacity : 원형 마커의 채우기 색의 투명도 (0은 투명하고, 1은 불투명)
stroke: 논리 값 (TRUE/FALSE)으로 테두리 설정

• TRUE로 설정하면 원형 마커 주위에 테두리(보더) 표시
• FALSE로 설정되어 있어 테두리가 그려지지 않습니다.

color :  원형 마커의 색상 설정

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addCircleMarkers (lng = ~lon, lat = ~lat,
               radius = 10,           # 원형 마커의 반지름
               fillOpacity = 0.8,     # 채우기 색의 투명도 (0은 완전히 투명, 1은 완전히 불투명)
               stroke = FALSE,        # 원형 마커 주위에 테두리(보더)를 그릴지 여부
               color = 'darkgreen',   # 원형 마커의 색상
               label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

 

[다양한 마커, 아이콘(Icon) : addAwesomeMarkers]

icon: awesomeIcons 함수를 사용하여 아이콘의 스타일을 설정
icon: 아이콘의 이름을 지정  예) 'star', 'flag', 'coffee' 등
markerColor: 마커의 색상 설정 예)  'red', 'blue', 'green' 등
iconColor: 아이콘의 색상 설정 예) 'white', 'black', 'blue', 등
library: 아이콘 라이브러리를 지정

• 'glyphicon' (Bootstrap Glyphicons), 'fa' (Font Awesome), 'ion' (Ionicons) 등

[Icon = 'flag']

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'flag',markerColor = 'darkblue',
                                        iconColor = 'yellow'), label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'star']

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'star',markerColor = 'blue',
                                        iconColor = 'pink'), label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'home]

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'home',markerColor = 'white',
                                        iconColor = 'blue'), label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'university']

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'university',
                                        library = 'fa',
                                        markerColor = 'black',
                                        iconColor = 'gold'), label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'heart']

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'heart',
                                        library = 'fa',
                                        markerColor = 'pink',
                                        iconColor = 'red'), label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'coffee', library = 'fa']

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'coffee',
                                        library = 'fa',
                                        markerColor = 'brown',
                                        iconColor = 'black'),
                                        label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)

[Icon = 'coffee', library = 'ion]

visitkorea  %>%
  filter (region == "서울") %>%
  leaflet() %>%
  setView(lng=127.0045, lat=37.55753, zoom=11.5) %>%
  addAwesomeMarkers(lng = ~lon, lat = ~lat,
                    icon = awesomeIcons(icon = 'coffee',
                                        library = 'ion',
                                        markerColor = 'brown',
                                        iconColor = 'black'),
                                        label = ~place) %>%
  addProviderTiles(providers$Stadia.Outdoors)