addPolygon() 的選項
到目前為止,我們都使用 addPolygons() 的預設外觀。多邊形其實還有更多客製化方式。
本題將聚焦於 addPolygons() 的以下參數:
- weight:邊界線的粗細(像素)
- color:多邊形的顏色
- label:游標懸停時顯示的資訊
- highlightOptions:游標懸停時突顯多邊形的選項
addPolygons(weight = 2,
color = "red",
label = ~paste0("Total Income: ", dollar(income)),
highlight = highlightOptions(weight = 10,
color = "blue",
bringToFront = TRUE))
前一個練習中你建立的 high_inc SpatialPolygonsDataFrame 已為你載入。
本練習屬於課程
在 R 中使用 leaflet 製作互動式地圖
練習說明
- 使用
addPolygons()的參數,將北卡羅來納州中高所得的郵遞區號繪製在地圖上,設定:- 邊界粗細為 1 像素,
- 多邊形使用
nc_pal調色盤上色,並在游標懸停時會被突顯,以及 - 標籤顯示「Mean Income:」字樣,後面接著該郵遞區號的平均所得。
動手互動練習
試著完成這個範例程式碼,體驗一下這個練習。
# create color palette with colorNumeric()
nc_pal <- colorNumeric("YlGn", domain = high_inc@data$mean_income)
high_inc %>%
leaflet() %>%
addTiles() %>%
# set boundary thickness to 1 and color polygons
addPolygons(___ = ___, ___ = ~nc_pal(mean_income),
# add labels that display mean income
label = ___("Mean Income: ", dollar(mean_income)),
# highlight polygons on hover
___ = highlightOptions(weight = 5, color = "white",
bringToFront = TRUE))