始める無料で始める

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（ノースカロライナ州）の高所得のZIPコードを次の条件で地図に描画します。
    • 境界線の太さは 1 ピクセル、
    • ポリゴンは nc_pal パレットで着色し、ホバー時にハイライトされること、
    • ラベルは「Mean Income:」という文字列に続けて、そのZIPコードの平均所得を表示すること。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# 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))
コードを編集して実行