修改通过ggplotly创建的图形的工具提示信息

Question

在运行我自己的聚类算法之后，我有了这个数据集以及它们各自的x和y，我想要一种用交互式视图来分析它的方法。

value max_value Var1 x y 3 6 potato 4 2 4 4 banana 3 2 5 6 apple 3 1

我试图巧妙地使用，并且我希望让花哨的查看器只向我展示各自点的工具提示/hoverinfo上的值和max_value。到目前为止，这就是我所拥有的：

gg <- ggplot(test) + 
  geom_point(aes(x = x,y =  y, color = Var1), size = 4, alpha = 0.5)
ggplotly(gg)

#alternative
plot_ly(df, x = ~x, y = ~y, color = ~Var1)

是否有一种方法可以更改绘图显示在工具提示或其他包上的值，从而在这方面对我有所帮助？

Answer 1

您可以添加一些带有text美学的工具提示信息：

library(plotly)
gg <- ggplot(test) + 
  geom_point(aes(x = x, y = y, color = Var1, 
                 text = paste0("Value: ", value, "</br>Max: ", max_value)), 
             size = 4, alpha = 0.5)
ggplotly(gg)

如果你只想要value和max_value

gg <- ggplot(test) + 
  geom_point(aes(x = x, y = y, color = Var1, 
                 text = paste0("Value: ", value, "</br></br>Max: ", max_value)), 
             size = 4, alpha = 0.5)
ggplotly(gg, tooltip = "text")

Answer 2

一种简单的解决方案，可以在弹出信息中巧妙地显示max_value：

gg <- ggplot(test) + 
  geom_point(aes(x = x,y =  y, color = Var1, group = max_value), size = 4, alpha = 0.5)
ggplotly(gg)

现在您已经确保了将max_value传递给ggplotly，您可以控制如下所示的内容：

ggplotly(gg, tooltip = c("x","y","max_value"))

当然，通过巧妙的界面直接创建情节也是另一种可能性：

plot_ly(test, type = 'scatter', mode = 'markers') %>% 
  add_trace(x =~x, y =~y, color = ~Var1, 
            text = ~paste0('X Value: ', x, '\nY Value: ', y, '\n max_value: ',     max_value), 
            hoverinfo = 'text')

更深层次的深入研究可以找到这里