R中子图plot_ly中每个地块附近的图例

library(plotly)

# 创建地块子图
plot <- plot_ly() %>%
  add_trace(
    type = "scattermapbox",
    lat = c(40.7128, 34.0522, 37.7749),
    lon = c(-74.0060, -118.2437, -122.4194),
    mode = "markers",
    marker = list(size = 10, color = "blue")
  ) %>%
  add_trace(
    type = "scattermapbox",
    lat = c(51.5074, 48.8566, 55.7558),
    lon = c(-0.1278, 2.3522, 37.6176),
    mode = "markers",
    marker = list(size = 10, color = "red")
  )

# 设置图例
layout <- list(
  legend = list(
    x = 0,
    y = 1,
    traceorder = "normal",
    font = list(family = "sans-serif", size = 12, color = "#000"),
    bgcolor = "#E2E2E2",
    bordercolor = "#FFFFFF",
    borderwidth = 2
  )
)

# 绘制地块子图并添加图例
plot <- plot %>% layout(layout)

# 显示地块子图
plot