在R语言Plotly中固定悬停框位置的技术咨询

针对你遇到的小空间嵌入时悬停框文本偏移问题，Plotly确实支持自定义悬停框的锚定位置，完全不用调整绘图空间或缩小文本字号。核心是通过配置hoverlabel的锚点属性，让悬停框固定在触发位置的底部，确保多行文本始终完整显示在框内。

关键参数说明 #

你只需要在hoverlabel的配置中添加yanchor = "bottom"，这个参数会让悬停框的底部对齐到触发悬停的元素位置（比如你的柱状图顶端），这样即使嵌入空间有限，悬停框会向下扩展（如果下方有空间），或者保持底部锚定，文本不会向上偏移出框。同时可以配合align = "left"让多行文本左对齐，进一步提升可读性。

修改后的完整代码 #

library(data.table)
library(ggplot2)
library(plotly)

dt.plot.data <- data.table(value=90)
ggp <- ggplot(dt.plot.data, aes(1, y=value, fill="dummy", text="Info 1: foo<br>Info2: bar<br>date:<br>2018-05-30")) + 
  geom_bar(stat="identity") + 
  ggtitle("Performance") + 
  labs(y="%") + 
  theme_bw() + 
  scale_fill_manual(values=c("#EE68FD")) + 
  theme(
    plot.title=element_text(hjust=0.5),
    legend.position="none",
    axis.title.x=element_blank(),
    axis.line.y=element_line(color="black"),
    axis.text.x=element_blank(),
    panel.grid.major.x=element_blank(),
    panel.grid.minor.x=element_blank(),
    panel.grid.minor.y=element_line(linetype="dashed"),
    panel.border=element_blank(),
    axis.ticks.x=element_blank()
  )

ply.yaxis <- list(autorange=FALSE, range=c(0, 100))
ply.title <- list(font=list(size=11), bordercolor="black", bgcolor="grey")
# 修改hoverlabel配置，添加yanchor和align参数
ply.hoverlabel <- list(
  bordercolor="white", 
  font=list(color="white", size=11),
  yanchor = "bottom",  # 锚定悬停框底部
  align = "left"       # 文本左对齐
)

ply <- ggplotly(ggp, dynamicTicks=TRUE, tooltip=c("y", "text")) %>% 
  layout(hoverlabel=ply.hoverlabel, yaxis=ply.yaxis) %>% 
  config(displayModeBar=FALSE)
ply$sizingPolicy$padding <- 0
ply

效果说明 #

当你缩小浏览器窗口复现问题时，悬停框会锚定在柱状图的顶端位置，多行文本会完整显示在悬停框内，不会出现偏移或被截断的情况。如果下方有足够空间，悬停框会向下延伸容纳文本；如果空间有限，也会保持底部锚定，文本不会向上跑出可见区域。

内容的提问来源于stack exchange，提问作者N. Maks