使用R中的plot_geo将省份标注添加到伊朗地图

install.packages("plotly")
install.packages("maps")

library(plotly)
library(maps)

download.file("https://github.com/plotly/datasets/raw/master/geojson/iran-provinces.geojson", "iran-provinces.geojson")

iran_map <- geojsonio::geojson_read("iran-provinces.geojson", what = "sp")

map <- plot_geo()

map <- add_trace(map, z = ~id, locations = ~id, text = ~name, color = I("blue"), alpha = 0.5, data = iran_map, type = "choropleth")

map <- add_text(map, x = ~centroid_lon, y = ~centroid_lat, text = ~name, data = iran_map, showlegend = FALSE)

map <- layout(map, title = "Iran Provinces", geo = list(scope = "asia", projection = list(type = "equirectangular")))

map