绘图气泡图/图表的大小图例

Question

这是一个情节“气泡”地图（即上面有标记的地图，其大小映射到一个变量）。但是，图例只显示颜色类别，而没有显示大小与值的关系。

library(plotly)

DF = data.frame(
  Group = c("A",  "B",  "A",  "B", "A", "C", "C"), 
  Value = c(100,  80,   90,  150, 120,  60, 110), 
  lat =  c( 40,   32,   36,   44,  31,  39,  37), 
  long = c(-90, -100, -120, -110, -90, -80,-105))


plot_geo(DF, locationmode = 'USA-states') %>%
  add_markers(y=~lat, x=~long, color=~Group, size=~Value, 
    marker=list(sizeref=0.1, sizemode="area")) %>%
  layout(geo=list(scope = 'usa'))

This question 显示了如何控制标记的大小，但没有回答如何在图例中显示这些大小。在this 和this 问题中，我们可以看到，如果每个类别只有一个与之关联的标记大小，那么图例将显示标记缩放到它们在气泡图中的大小。但这在这里没有帮助。 plotly 网站有bubble charts 和bubble maps 的示例，但这些都没有大小图例。

有没有办法将标记大小的图例添加到气泡图/地图中？上面的示例使用 R api，但使用另一个 plotly api（例如 python）的答案也是可以接受的。

编辑：为什么这不是this question 的重复项

我已经在我原来的帖子中链接到这个问题，并解释了为什么它不同。但让我试着更清楚地解释一下差异，因为无论如何有人已经将它标记为可能的重复......

链接的问题与患有图例中显示的不同气泡大小的人有关发生这种情况是因为他们的数据中每个类别只有一个大小。相比之下，此示例中的每个类别都有不同大小的气泡。链接问题中的 OP 想知道如何摆脱图例中的不同大小 - not 如何将值映射到图例中的大小。链接问题中的答案提供了各种质量的解决方法来实现这一目标。但是，在这个问题中，我已经有一个图例，其中标记的大小都相同。我想要的是添加一个图例，显示一系列大小的气泡，每个气泡都标有该大小对应的值。链接帖子中没有任何内容询问或显示如何实现这一目标。

Answer 1

在看到一些关于这个问题的 cmets 表明这无法完成后，我自己又尝试了一次，这是一种非常有效的方法。

legend.sizes = seq(80, 160, 20)
ax = list(zeroline = FALSE, showline = FALSE, showticklabels = FALSE, showgrid = FALSE)
mk = list(sizeref=0.1, sizemode="area")

p.map = plot_geo(DF, locationmode = 'USA-states') %>%
  add_markers(x = ~long, y = ~lat, color = ~Group, size = ~Value, marker = mk) %>%
  layout(geo = list(scope = 'usa'))

p.legend = plot_ly() %>%
  add_markers(x = 1, y = legend.sizes, size = legend.sizes, showlegend = F, marker = mk) %>%
  layout(xaxis = ax, yaxis = list(showgrid = FALSE))

subplot(p.legend, p.map, widths = c(0.1, 0.9))