使用R和geojson数据向地图上的x，y点添加名称

install.packages("sf")
install.packages("leaflet")
install.packages("geojsonio")

data <- data.frame(x = c(经度1, 经度2, 经度3, ...),
                   y = c(纬度1, 纬度2, 纬度3, ...),
                   name = c("名称1", "名称2", "名称3", ...))

library(sf)
library(geojsonio)

# 将数据框转换为sf对象
sf_data <- st_as_sf(data, coords = c("x", "y"), crs = 4326)

# 将sf对象转换为geojson格式
geojson_data <- geojson_sf(sf_data)

library(leaflet)

# 创建地图
map <- leaflet() %>%
  addTiles()

# 添加点标记
map <- map %>%
  addMarkers(data = geojson_data,
             label = ~name,
             popup = ~name)

# 显示地图
map