问如何在plotly中制作用户自定义/显式的色标和图例？

EN

#original dataset. I want to construct the legend with this
weather <- read.csv("weather2_rmse.csv") %>% 
  mutate(date_of_forecast = as.Date(date_of_forecast))

#filtered. I want to construct the points with this
data <- filter(weather, date_of_forecast == "2015-02-01")

weather_map <- function(data) {

  # change default color scale title
  m <- list(colorbar = list(title = ""))

  # geo styling
  g <- list(
    scope = 'north america',
    showland = TRUE,
    landcolor = toRGB("grey83"),
    subunitcolor = toRGB("white"),
    countrycolor = toRGB("white"),
    showlakes = TRUE,
    lakecolor = toRGB("white"),
    showsubunits = TRUE,
    showcountries = TRUE,
    resolution = 50,
    projection = list(
      type = 'conic conformal',
      rotation = list(lon = -100)
    ),
    lonaxis = list(
      showgrid = TRUE,
      gridwidth = 0.5,
      range = c(-140, -55),
      dtick = 5
    ),
    lataxis = list(
      showgrid = TRUE,
      gridwidth = 0.5,
      range = c(20, 60),
      dtick = 5
    )
  )

  #the plotly part
  p <- plot_geo(data, lat = ~latitude, lon = ~longitude, color = ~rmse) %>%
    add_markers(
      text = ~paste(data$rmse, "RMSE"), hoverinfo = "text"
    ) %>%
    layout(title = 'Average RMSE of MaxTemp Forecasts by Month<br>xxxxxxxxxx', geo = g)
  p
}