공립 대학 매핑하기

각 학제 구분(sector)을 지도에 레이어로 추가하면, 사용자가 어떤 학제 구분을 표시할지 선택할 수 있어요. 이를 위해 addCircleMarkers() 함수에 새로운 인수 group을 사용하겠습니다.

leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, 
                         label = ~htmlEscape(name), 
                         group = "Public")

여기에 htmltools 라이브러리의 기능도 통합하겠습니다. 라벨을 htmlEscape() 함수로 감싸면 HTML로 해석될 수 있는 문자를 정제(sanitize)할 수 있어요. 이렇게 하면 대학 이름이 의도치 않은 서식으로 표시되는 것을 막을 수 있습니다.

챕터 2에서 만든 색상 팔레트 pal은 미리 불러와 두었습니다.

htmltools 패키지를 로드하세요.
ipeds 데이터를 필터링해 공립 대학만 담은 데이터 프레임을 만드세요.
공립 대학의 leaflet 지도를 만드세요.
addCircleMarkers()에 group 인수를 추가하세요.