开始使用免费开始使用

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() 的参数，在 NC 显示高收入邮政编码区域，要求：
    • 边界粗细为 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))
编辑并运行代码