R Plotly：添加参考图例

Question

我有一个不同直径的气泡图，想要一个图例来展示标记（可以用sizeref任意调整大小）与真实数据的关系。例如，假设我调整标记大小的数据在[0,12]范围内。我想要包含一个传奇，显示大小的标记＆＃34; 12＆＃34;和尺寸＆＃34; 6＆＃34;看起来像，所以用户可以更好地理解标记的大小意味着什么。

test <- data.frame(matrix(NA, ncol=3, nrow=14))
colnames(test) <- c("Group", "Numbers", "Days")
loop<- 1
for(i in 1:7){
    test[i,] <- c(1, i, loop)
    loop <- loop * 1.5
}
loop <- 1
for(i in 1:7){
    test[i+7,] <- c(2, i, loop)
    loop <- loop * 1.3
}
plot_ly(test, x=Group, y=Numbers, size=Days, mode="markers")