Plotly面积图折线顶部显示数值问题求助

要让折线顶部显示数值，核心是调整mode参数并优化文本定位，以下是修正后的代码：

library(plotly)
library(ggplot2) # diamonds数据集来自ggplot2包

density <- density(diamonds$carat)

fig <- plot_ly(
  x = ~density$x, 
  y = ~density$y, 
  type = 'scatter', 
  mode = 'lines+text', # 关键：mode需包含text才会渲染文本标签
  fill = 'tozeroy',
  text = ~round(density$y, 2), # 保留两位小数，避免密度值过小显示为0
  textposition = 'top center', # 指定文本在折线顶部居中
  textfont = list(size = 8) # 可选：缩小字号避免文本重叠
)

fig <- fig %>% layout(
  xaxis = list(title = 'Carat'),
  yaxis = list(title = 'Density')
)

fig

核心修改说明： #

• mode = 'lines+text'：原代码仅设置mode='lines'，Plotly不会渲染文本标签，必须将text加入mode参数
• textposition = 'top center'：比outside更精准地指定文本在数据点顶部的位置
• 优化文本精度：钻石克拉的密度值大多小于1，将round(density$y,0)改为round(density$y,2)能保留有效数据信息

如果数据点过多导致文本重叠，可以对密度数据进行采样（比如只保留峰值或间隔节点），进一步优化图表可读性。

内容的提问来源于stack exchange，提问作者silent_hunter