将图中的悬停框的位置固定在r

Question

我有一个情节生成的小部件，我需要将其嵌入到网页中。我必须嵌入它的小空间导致文本偏离悬停框（见图）

增加网页上绘图的空间不是一个选项，减少悬停信息的字体大小也不是一个选项，它将变得不可读。

问题：如何将悬停框固定为始终显示在图表底部，以便悬停信息保留在框内？

我确实搜索了一下互联网，但并没有成功。甚至可以设置盒子的位置吗？

修改： 下面是一个示例代码，显示了如何创建绘图小部件。但请注意，您必须调整浏览器窗口的大小并使其缩小，以便悬停框以这种奇怪的方式运行。

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.major.y=element_line(linetype="dashed"), panel.grid.minor.y=element_line(linetype="dashed"),
                panel.border=element_blank(), axis.ticks.x=element_blank()
        )
#ggp

ply.yaxis       <- list(autorange=FALSE, range=c(0, 100))
ply.title       <- list(font=list(size=11), bordercolor="black", bgcolor="grey")
ply.hoverlabel  <- list(bordercolor="white", font=list(color="white", size=11))

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