У меня есть графически сгенерированный виджет, который мне нужно встроить в веб-страницу.Небольшое пространство, в которое я должен встраивать его, приводит к смещению текста от поля наведения (см. Рис.)
Увеличение пространства для графика навеб-страница не является опцией, и уменьшение размера шрифта для информации при наведении также не является опцией, она становится нечитаемой.
Вопрос : Как я могу привязать поле при наведении квсегда отображаться внизу графика, чтобы информация о наведении оставалась внутри поля?
Я немного искал в интернете, но безуспешно.Можно ли даже установить положение поля?
Редактировать: Вот пример кода, который показывает, как создается виджет графика.Тем не менее, обратите внимание, что вам нужно изменить размер окна браузера и сделать его меньшим, чтобы при наведении указатель мыши вел себя таким странным образом.
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