我正在尝试用Plotly绘制一个面积图。下面你可以看到我的代码

library(plotly)

density <- density(diamonds$carat)

fig <- plot_ly(x = ~density$x, y = ~density$y, type = 'scatter', mode = 'lines', fill = 'tozeroy')
fig <- fig %>% layout(xaxis = list(title = 'Carat'),
         yaxis = list(title = 'Density'))

fig

现在我想在这一行的顶部显示值。我尝试了这几行代码：

fig <- plot_ly(x = ~density$x, y = ~density$y, type = 'scatter', mode = 'lines', fill = 'tozeroy',
               text = ~paste0(" ",round(density$y,0)),
               textposition = "outside"
               
               )
fig <- fig %>% layout(xaxis = list(title = 'Carat'),
                      yaxis = list(title = 'Density'))

fig

这段代码没有产生我所期望的结果，所以有人能帮助我如何修复这个问题并查看行上方的值吗？