从R中的分类数据创建包含leaflet的图层

install.packages("leaflet")

library(leaflet)

# 导入数据
data <- read.csv("data.csv")

# 创建地图对象
map <- leaflet(data)

# 添加地图瓦片图层
map <- addTiles(map)

# 添加圆形标记图层
map <- addCircleMarkers(map, 
                        lng = ~longitude, 
                        lat = ~latitude, 
                        radius = 5, 
                        color = ~category_color, 
                        fillOpacity = 0.8)

# 添加图例
map <- addLegend(map, 
                 colors = c("red", "blue", "green"), 
                 labels = c("Category 1", "Category 2", "Category 3"))

# 添加缩放控件
map <- addZoomControl(map)

# 添加图层控制
map <- addLayersControl(map, 
                        baseGroups = c("Base Map"), 
                        overlayGroups = c("Markers"))

# 显示地图
leafletOutput(map) %>% 
  renderLeaflet()