범례 추가하기

색으로 지도를 더 풍부하게 만드는 건 좋지만, 각 색이 무엇을 의미하는지 기억하지 못하면 소용이 없죠. 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")

1
pal에서 사용한 색을 표시하는 범례를 m에 추가하세요.

2
범례의 opacity를 0.5, title을 "Sector", position을 "topright"로 지정해 보세요.