Pieces of Flair

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

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

대학 검색

ca_public <- ipeds %>%
    filter(sector_label == "Public", state == "CA")

ca_public  %>% 
    leaflet() %>% 
        addProviderTiles("Esri") %>% 
        addCircleMarkers(radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>%

    addSearchFeatures(targetGroups = 'Public', 
                      options = searchFeaturesOptions(zoom = 10))

# search for markers
 addSearchFeatures(
         targetGroups = 'Public')

addSearchFeatures() 1

addSearchFeatures(options =
 searchFeaturesOptions(zoom = 10),
 targetGroups = 'Public')

addSearchFeatures() 2

대학 클러스터링

ipeds  %>% 
  leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(radius = 2, 
                       color = ~pal(sector_label),
                       clusterOptions = markerClusterOptions())

마커 클러스터링 1

대학 클러스터링

마커 클러스터링 2

연습해 봅시다!

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