将标签添加到使用plot_geo创建的plotly地图

我有一个使用plotly::plot_geo. 我想在地图顶部添加标签，例如，在地图上阿拉巴马州的位置，它会显示“AL (68)”，但对于所有州，如下例所示：

谁能告诉我是否有办法做到这一点？

library(tidyverse)
library(plotly)

set.seed(1)

density <- sample(1:100, 50, replace = T)

g <- list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  lakecolor = toRGB('white')
)

plot_geo() %>%
  add_trace(
    z = ~density, text = state.name, span = I(0),
    locations = state.abb, locationmode = 'USA-states'
  ) %>%
  layout(geo = g)