반응형
[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)

728x90
'데이터 분석 (with Rstudio)' 카테고리의 다른 글
[Rstudio] 조건문 if else case_when (4) | 2024.03.24 |
---|---|
DT (Digital Transformation)와 DX (Digital eXperience) 정의와 핵심 고려사항 (0) | 2024.03.11 |
[Rstudio] 리플렛(leaflet) 지도 종류 설정 (한국 관광 100선 위치) (1) | 2023.12.23 |
[Rstudio] 리플렛 지도 위치 표시 (Marking with leaflet package) (0) | 2023.12.19 |
[Rstudio] ggplot 그래프 분할 생성 (facet_wrap facet_grid) (1) | 2023.12.18 |