切换悬停文本不适用于geom_dotplot

Question

我想在R.中的点图中添加悬停文本注释，但似乎不适用于geom_dotplot。

我希望最后的点击图看起来像这样：

df <- data.frame(年份=c(“2000年”、“2005年”、“2005年”、“2010年”、“2010年”、“2010年”)、名称=c(“乔治”、“迈克尔”、“鲍勃”、“詹姆斯”、“威尔”、“法布里齐奥”)、ggplot(df，aes(x =年份))+ geom_dotplot(堆栈比= 1，填充=“深绿色”，stackgroup= TRUE)

但是，当您在给定的点上悬停时，我希望出现“名称”数据。

下面的代码适用于其他图形(例如，geom_point)，但是对于geom_dotplot，外观会完全改变，悬停文本不起作用：

geom_dotplot(，堆栈比= 1，填充=“深绿色”，stackgroup= TRUE，binpositions="all")，工具提示= " text ")

任何帮助，这将是非常感谢！谢谢。

芦笛子

Answer 1

根据文档，使用geom_dotplot在ggplotly中创建悬停文本似乎是不可能的。当您检查此文档时，您可以看到，给定的选项中没有一个可以悬停标签。即使在您的label或text中使用tooltip时，tooltip似乎也不起作用。

作为一个选项，您可能希望使用fill来显示如下所示的名称：

library(ggplot2)
library(plotly)
p <- ggplot(df, aes(x = year, fill = name)) + 
  geom_dotplot(stackratio = 1, stackgroups = TRUE)

ggplotly(p)

输出：

​

​

Answer 2

如果悬停文本在geom_dotplot中不可用，那么另一种解决方案是制作一个看起来像点图的散点图：

df <- data.frame(
    year = c("2000", "2005", "2005", "2010", "2010", "2010"),
    name = c("George", "Michael", "Bob", "James", "Will", "Fabrizio"),
    position = c("1", "1", "2", "1", "2", "3"))

p <- ggplot(df, aes(x = year, y = position,  text = paste(name)))
     + geom_point(colour = "darkgreen", alpha = .3, size = 5)
     + scale_y_continuous(limits = c(0, 10))
     + theme(axis.text.y=element_blank(),axis.ticks.y=element_blank(), 
     axis.title.y = element_blank())

ggplotly(p, tooltip = "text")

​

​

(悬停文本在StackOverflow预览中不起作用，但在R中起作用。)