시작하기무료로 시작하기

공립 대학 매핑하기

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

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

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

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

이 연습은 강의의 일부입니다

R로 만드는 leaflet 인터랙티브 지도

강의 보기

연습 안내

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

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Load the htmltools package
___

# Create data frame called public with only public colleges
public <- ___(ipeds, sector_label == "Public")  

# Create a leaflet map of public colleges called m3 
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), ___ = "Public")

m3
코드 편집 및 실행