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

Question

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

library("ggvis")

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

如何添加每个bin的份额？我应该以某种方式将nrow(cocaine)添加到ggvis并从count开始创建共享但我没有成功实现该目标（尝试采用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)))

这将显示共享和bin号码。

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