如何在Plotly瀑布图中设置数据标记至条形末端下方

嘿，我明白你想要把数据标记放在每个瀑布图条形的末端正下方的需求，这就帮你调整代码！

首先，默认的Plotly瀑布图文本标记位置可能不符合你的预期，我们可以通过**手动添加注释（annotations）**的方式来精准控制标签位置，这样能完美实现你要的效果。下面是修改后的完整代码：

source('./r_files/flatten_HTML.r')
library("plotly")

# 你的原始数据集
dataset <- data.frame(
  Category = c("Akash Jain","Ankit Jain","Pankaj Jain","Nitin Pandey","Gopal Pandit","Ramnath Agarwal"),
  TH = c(-62,-71,-1010,44,-44,200)
)

# 计算每个条形的累积结束位置（瀑布图的末端y值）
dataset$cumulative <- cumsum(dataset$TH)

# 创建自定义注释，放在每个条形末端的正下方
annotations <- lapply(1:nrow(dataset), function(i) {
  list(
    x = dataset$Category[i],          # 对应x轴分类
    y = dataset$cumulative[i] - 20,   # 末端位置向下偏移20（可根据需求调整）
    text = as.character(dataset$TH[i]),# 显示的数值
    showarrow = FALSE,                # 隐藏箭头
    font = list(size = 10)            # 设置字体大小
  )
})

# 绘制瀑布图并添加自定义注释
p <- plot_ly(dataset, type = "waterfall",
             x = ~Category, 
             y = ~TH,
             text = NULL) %>%  # 关闭默认文本标记
  layout(
    title = "Waterfall Chart",
    xaxis = list(title = ""),
    yaxis = list(title = "TH Value"),
    annotations = annotations  # 添加自定义注释
  )

# 输出图表
p

关键调整说明： #

• 我们先计算了每个条形的累积结束位置（cumulative列），这就是瀑布图中每个条形的末端y坐标。
• 通过lapply生成每个标签的注释配置，把标签位置设置在末端坐标向下偏移20的位置（你可以根据图表大小调整这个偏移量，比如改成-15或-25）。
• 关闭了默认的text参数，避免出现重复标签。

如果不想用手动注释，也可以尝试调整trace的textposition参数，但对于瀑布图这种正负条形混合的情况，手动注释的方式更灵活精准，能确保所有标签都整齐地出现在每个条形的末端正下方。

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