오버레이 그룹

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

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

섹터별 대학 그룹화

m <- ca_colleges %>% 
  leaflet() %>% 
  addProviderTiles("CartoDB") 
m %>% 
  addCircleMarkers(
              radius = 2,
              label = ~name)

CA 대학 레이어 1

ca_public <- ipeds  %>% 
  filter(sector == "Public", 
         state == "CA") 
m %>% 
  addCircleMarkers(
        data = ca_public,
        group = "Public")

CA 대학 레이어 2

m %>% 
 addCircleMarkers(
   data = ca_public,
   color = ~pal(sector_label),
   group = "Public")  %>% 

addCircleMarkers(
   data = ca_private,
   color = ~pal(sector_label),
   group = "Private")  %>%

addCircleMarkers(
   data = ca_profit,
   color = ~pal(sector_label),
   group = "For-Profit")

CA 대학 레이어 1

m %>% 
 addCircleMarkers(
   data = ca_public,
   color = ~pal(sector_label),
   group = "Public")  %>% 

addCircleMarkers(
   data = ca_private,
   color = ~pal(sector_label),
   group = "Private")  %>% 

addCircleMarkers(
   data = ca_profit,
   color = ~pal(sector_label),
   group = "For-Profit")  %>% 

addLayersControl(
  overlayGroups = c("Public", 
                    "Private", 
                    "For-Profit"))

CA 대학 레이어 3

최종 목표

모든 대학 레이어

연습해 봅시다!

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