如何将带有共享的工具提示添加到 ggvis 直方图？

Question

我想创建一个交互式直方图，它通过悬停提供有关垃圾箱的信息。 This thread 给出了如何添加带有计数的工具提示的答案。

library("ggvis")

cocaine %>%  
    ggvis(x = ~weight) %>%
    layer_histograms() %>%
    add_tooltip(function(df) (paste("count:", df$stack_upr_ - df$stack_lwr_)))

如何添加每个垃圾箱的份额？我应该以某种方式将 nrow(cocaine) 添加到 ggvis 并从计数中创建份额，但我没有成功实现这一点（试图采纳 this post 的建议，但显然解决了另一个问题）。

Answer 1

我想你可以这样做：

cocaine %>%  
  ggvis(x = ~weight) %>%
  layer_histograms() %>%
  add_tooltip(function(df) paste("count:", df$stack_upr_, 'share:', 
                           format(df$stack_upr_/nrow(cocaine), digits=2)))

这将同时显示份额和箱号。

此外，作为旁注，您不需要 df$stack_upr_ - df$stack_lwr_，因为 df$stack_lwr_ 将为零。只需 df$stack_upr_ 即可。

如何将带有共享的工具提示添加到 ggvis 直方图？

How to add tooltip with shares to ggvis histogram?

r

ggvis