如何在R中使用Leaflet将csv数据绑定到geojson

library(leaflet)
library(rgdal)
library(rgeos)
library(sp)

data <- read.csv("data.csv")

coordinates(data) <- c("longitude", "latitude")
proj4string(data) <- CRS("+proj=longlat +datum=WGS84")

geojson <- geojsonio::geojson_json(data)

map <- leaflet() %>%
  addTiles() %>%
  addGeoJSON(geojson)

map <- map %>%
  addMarkers(lng = ~longitude, lat = ~latitude, popup = ~name) %>%
  addLegend(...)

map