R中的GeoJSON图例

install.packages("leaflet")
install.packages("geojsonio") # 用于读取GeoJSON文件
library(leaflet)
library(geojsonio)

# 假设你的GeoJSON文件名为'my_data.geojson'
geojson_data <- geojson_read("my_data.geojson", what = "sp")

# 创建一个基础地图
m <- leaflet() %>%
  addTiles() # 使用默认的OpenStreetMap图层

# 添加GeoJSON图层
m <- m %>% addPolygons(data = geojson_data,
                      fillColor = ~pal(value), # 假设你的GeoJSON有一个'value'字段用于颜色填充
                      color = "#BDBDC3", # 边界线的颜色
                      fillOpacity = 0.8,
                      weight = 1,
                      label = ~label) # 假设你的GeoJSON有一个'label'字段用于标签

# 定义一个颜色调色板
pal <- colorNumeric(palette = "viridis", domain = geojson_data$value)

# 添加图例
m <- m %>% addLegend(position = "bottomright",
                      pal = pal,
                      values = geojson_data$value,
                      title = "My Legend Title",
                      opacity = 1)

library(leaflet)
library(geojsonio)

# 读取GeoJSON数据
geojson_data <- geojson_read("my_data.geojson", what = "sp")

# 创建地图并添加GeoJSON图层
m <- leaflet() %>%
  addTiles() %>%
  addPolygons(data = geojson_data,
              fillColor = ~pal(value),
              color = "#BDBDC3",
              fillOpacity = 0.8,
              weight = 1,
              label = ~label)

# 定义颜色调色板
pal <- colorNumeric(palette = "viridis", domain = geojson_data$value)

# 添加图例
m <- m %>% addLegend(position = "bottomright",
                      pal = pal,
                      values = geojson_data$value,
                      title = "My Legend Title",
                      opacity = 1)

# 显示地图
m