開始使用免費開始

繪製公立與私立大學

加入私立大學的方式，和加入公立大學完全相同。接著，使用 addLayersControl() 搭配 overlayGroups 引數，你可以讓使用者選擇顯示公立和／或私立大學。overlayGroups 引數接受一個向量，內容為你在建立圖層時定義的群組（也就是公立與私立）。提醒一下，以下是如何把公立大學作為圖層加入地圖：

# 建立名為 public 的資料框，只包含公立大學
public <- filter(ipeds, sector_label == "Public")  

# 將公立大學新增為圖層，並將地圖存成 `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

htmltools 函式庫、調色盤 pal，以及只含公立大學的地圖 m3 都已為你載入。

本練習屬於課程

在 R 中使用 leaflet 製作互動式地圖

檢視課程

練習說明

  • 篩選 ipeds 資料，建立只包含私立大學的資料框。
  • 將私立大學以新圖層加入 m3。
  • 使用 addLayersControl() 與 overlayGroups，讓使用者可以切換公立與私立圖層。

動手互動練習

試著完成這個範例程式碼，體驗一下這個練習。

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

# Add private colleges to `m3` as a new layer
m3 <- m3 %>% 
        ___(data = private, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), group = "Private") %>% 
        ___(___ = c("Public", "Private"))

m3
編輯並執行程式碼