Добавление ответа, для дальнейшего использования в сообществе SO.Я нашел решение, используя add_trace
R код :
library(plotly)
p <- plot_ly(
type = 'scatterpolar',
r = c(0,1,2,2),
theta = c(0,45,90,120),
size = c(10, 20, 30, 40),
sizes = c(100, 300),
mode = 'markers'
) %>%
add_trace(
r = c(0,1,2,2),
theta = c(0,45,90,120),
mode = "text",
text = c(10, 20, 30, 40),
textfont = list(color = '#000000', size = 12)
)
p
Диаграмма :