Оффшорный маркер США карта хороплета R сюжет

Question

Используя карту США R-Chloropleth, я хотел бы добавить маркер, чтобы выделить Лос-Анджелес и расположить его немного за пределами Калифорнии, немного западнее океана. Но я все же хотел бы, чтобы этот маркер отображался с использованием тех же цветовых шкал, что и состояния. Кто-нибудь придумал, как добавить геометрию к хлороплетным состояниям R-графика?

Базовый код:

library(plotly)
df <- data.frame(state = state.abb, rain = sample(100:400, 50, replace = T))
los_angeles <- data.frame(state = 'Los Angeles', lat = 33, lon = 118.2437, rain = 500)

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

fig <- plot_geo(df, locationmode = 'USA-states')
fig <- fig %>% add_trace(
    z = ~rain,
    locations = ~state,
    color = ~rain, 
    colors = 'Purples',
    text = 'Los Angeles'
  )

fig <- fig %>% colorbar(title = "Purple Rains")
fig <- fig %>% layout(
    title = 'USA',
    geo = g
  )
fig

Но карта будет выглядеть примерно так:

Кажется, что функция plotly add_markers может добавлять маркеры только для ВСЕХ состояний. Я попытался скомбинировать хоть какой-то текст вместе над нужной точкой, но это даже не будет отображаться:

fig <- fig %>% add_text(x = los_angeles$lat, y = los_angeles$lon,
                         color = I('purple'), text = paste(los_angeles$state, los_angeles$rain, sep = ': ')
                         )