R 图例中的 GeoJSON

Question

我正在尝试创建一个传单图，其中每个地理区域都基于属性的特定颜色。这是我的 geojson 文件的测试示例：一般来说，我对 geojson 和传单还很陌生

{
  "type": "FeatureCollection",
  "features": [
    {
      "type": "Feature",
      "properties": {"class": "blah"},
      "geometry": {
        "type": "Polygon",
        "coordinates": [
          [
            [
              -81.7987060546875,
              32.74570253945518
            ],
            [
              -81.6229248046875,
              32.16631295696736
            ],
            [
              -80.958251953125,
              32.4263401615464
            ],
            [
              -81.2713623046875,
              32.791892438123696
            ],
            [
              -81.7437744140625,
              32.97180377635759
            ],
            [
              -81.7987060546875,
              32.74570253945518
            ]
          ]
        ]
      }
    },
    {
      "type": "Feature",
      "properties": {"class": "blah2"},
      "geometry": {
        "type": "Polygon",
        "coordinates": [
          [
            [
              -82.056884765625,
              33.55512901742288
            ],
            [
              -81.4471435546875,
              33.247875947924385
            ],
            [
              -81.40869140625,
              33.80653802509606
            ],
            [
              -82.078857421875,
              33.88865750124075
            ],
            [
              -82.40295410156249,
              33.58716733904656
            ],
            [
              -82.056884765625,
              33.55512901742288
            ]
          ]
        ]
      }
    },
    {
      "type": "Feature",
      "properties": {"class": "blahh3"},
      "geometry": {
        "type": "Polygon",
        "coordinates": [
          [
            [
              -83.485107421875,
              32.930318199070534
            ],
            [
              -83.07861328125,
              31.863562548378965
            ],
            [
              -82.21618652343749,
              32.11049589629439
            ],
            [
              -82.97973632812499,
              33.22030778968541
            ],
            [
              -83.726806640625,
              33.211116472416855
            ],
            [
              -83.485107421875,
              32.930318199070534
            ]
          ]
        ]
      }
    }
  ]
}

我想要做的是根据 class 属性添加一个图例，这样每个不同的 class 都与特定颜色相关联。但是，当我尝试绘制并添加图例时，我在绘图上遇到了错误。下面是我的 R 代码：

blahTest <- geojson_read("/file/path/...", what = "sp")
fpal <- colorFactor("viridis", blahTest$class)
leaflet(blahTest) %>%
  addTiles() %>%
  addPolygons(stroke = FALSE, smoothFactor = 0.3, fillOpacity = 1,
              color = ~fpal(class)) %>%
  addLegend(colors = ~fpal, opacity = 1.0, labels = ~fpal)

Answer 1

只需对您的 addLegend 参数稍作修改即可获得所需的输出：

# read geojson in r
library(rgdal)
blahTest = readOGR("...", "OGRGeoJSON")

library(leaflet)

# create palette
fpal <- colorFactor(
  palette = "viridis",
  domain = blahTest$class
)

# plot
leaflet(blahTest) %>%
  addTiles() %>%
  addPolygons(stroke = FALSE, smoothFactor = 0.3, fillOpacity = 1,
              color = ~pal(class)) %>%
  addLegend("bottomright", 
            pal = fpal, 
            values = ~class,
            title = "Legend",
            opacity = 1,
            labels = ~fpal
)

R 图例中的 GeoJSON

GeoJSON in R Legend

r

geojson