R：在 ggplotly 中悬停时重叠的工具提示

Question

我有这个代码。 基本上，当鼠标悬停在 value=50 中的 ggplotly 图上时，我有两个标签相互重叠，所以基本上我看不到西方标签，只能看到南方。

我怎样才能防止这种情况发生？ 我究竟做错了什么？ 我希望在鼠标悬停时看到两个标签分开。

library(ggplot2)
library(ggplotly)

data <- data.frame(
  name=c( "A"  ),
  value=c( 30,40,50,50),
  location=c("North","East", "West","South")
)

pxp<- ggplot(data, aes(x=name, y=value, text=location)) + geom_boxplot() +geom_point() +
  theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(),
                     panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))+
  labs(y="Value")
ggplotly(pxp)

谢谢，

Answer 1

您可以使用抖动并给出适当的宽度和高度来分别查看点。 然后在您悬停时显示适当的值。 尝试这个

pxp<- ggplot(data, aes(x=name, y=value, text=location)) + geom_boxplot() + # geom_point(position=jitter, width=0.1) +
  geom_jitter(alpha=0.6, width=0.02, height=0.1)+
  theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(),
                     panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))+
  labs(y="Value")
ggplotly(pxp)