Question

下面的代码不能正常工作，当指针悬停在一个点上时，它应该显示Num ......

iris$Sepal.Length.j <- jitter(iris$Sepal.Length)
iris$Sepal.Width.j <- jitter(iris$Sepal.Width)
iris$Num <- 1:nrow(iris)
iris %>% group_by(Species) %>% 
  ggvis(~Sepal.Length.j, ~Sepal.Width.j, opacity:=0.5) %>% 
  layer_points(fill=~Species) %>% layer_smooths(stroke=~Species) %>%
  add_tooltip(html=function(x) {
    if (!is.list(x)) return()
    x$Num}, on="hover")

这是一个可能的错误还是我被误解了？下面的代码工作正常。

iris %>% group_by(Species) %>% 
  ggvis(~Sepal.Length.j, ~Sepal.Width.j, opacity:=0.5) %>% 
  layer_points(fill=~Species) %>% layer_smooths(stroke=~Species) %>%
  add_tooltip(html=function(x) {
    if (!is.list(x)) return()
    x$Sepal.Width}, on="hover")

Answer 1

这里有几件事情要发生。首先是关于 ggvis 使用的数据列。

从add_tooltip帮助页面的“示例”部分：

从客户端发送到服务器的数据仅包含数据列在情节中使用的。如果您想获取其他数据列，你应该使用一个键来排列一行中的项目在数据中。

在您的第二个图中，Sepal.Width用于绘图，因此可用于工具提示。但是您从未在绘图代码中使用Num，因此无法在工具提示中使用它。要将Num保留在图表的数据列中，您需要指明这是您的key列。

这是一个简单的解决方法 - 只需将key := ~Num添加到layer_points。

分组和工具提示还存在一些其他微妙问题，其中一些问题在this answer中列出。在您的情况下，如果您在layer_points之后和layer_smooth之前进行分组，我认为工具提示可以按照您的意愿运作。

所以你的代码看起来像：

iris %>%
    ggvis(~Sepal.Length.j, ~Sepal.Width.j, opacity:=0.5) %>% 
    layer_points(fill=~Species, key := ~Num) %>% 
    group_by(Species) %>%
    layer_smooths(stroke=~Species) %>%
    add_tooltip(html=function(x) {
        if (!is.list(x)) return()
        x$Num}, on="hover")

Answer 2

没有名为＆＃34; Num＆＃34;在你的情节的输入数据集中 - 这就是为什么它不起作用。你的第二个例子是有效的，因为＆＃34; Sepal.Width＆＃34;是虹膜数据中的一列。

ggivs中工具提示的可能错误？

2 个答案: