범례 추가하기
색으로 지도를 더 풍부하게 만드는 건 좋지만, 각 색이 무엇을 의미하는지 기억하지 못하면 소용이 없죠. addLegend()를 사용하면 이를 상기시켜 줄 범례를 추가할 수 있어요.
opacity, title, position 등 원하는 대로 범례를 꾸밀 수 있는 여러 인자가 있습니다. colorNumeric() 예시에 대한 범례를 만들려면 아래와 같이 하면 됩니다.
pal <- colorNumeric(palette = "RdBu", domain = c(25:50))
ipeds %>%
leaflet() %>%
addProviderTiles("CartoDB") %>%
addCircleMarkers(radius = 2,
color = ~pal(lat)) %>%
addLegend(pal = pal,
values = c(25:50),
opacity = 0.75,
title = "Latitude",
position = "topleft")
이 연습은 강의의 일부입니다
R로 만드는 leaflet 인터랙티브 지도
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Add a legend that displays the colors used in pal
m %>%
___(pal = pal,
values = c("Public", "Private", "For-Profit"))