带工具提示的 ggvis 密度图？

我正在尝试添加一个tooltip到我的 ggvis 情节。我基本上想在将鼠标悬停在密度图上时添加密度数。这就是我现在所拥有的：

mtcars %>% ggvis(~wt, fill := "red") %>% 
  layer_densities() %>%  
  add_axis("x", title = "Weight") %>% 
  scale_numeric("x", domain = c(0, 5), nice = FALSE, clamp = TRUE) %>% 
  add_tooltip(function(df){density(df$wt)})

但是当我悬停时，我收到此错误：

Error in density.default(df$wt) : argument 'x' must be numeric

Thanks!

我只有部分答案，但它可能会帮助您朝正确的方向发展。

以下代码将为您提供工具提示：

mtcars %>% ggvis(~wt, fill:="red") %>%
  layer_densities() %>%  
  add_axis("x", title = "Weight") %>% 
  add_tooltip(function(data){data$resp_}, "hover")

但是，工具提示对于每个 x 值都包含相同的值（即：密度曲线的第一个值）。

With dens <- mtcars %>% compute_density(~wt)您将得到一个密度数据框。

希望其他人想改进这个答案以获得完整的解决方案。