Question

我在R studio中有一个关于GGVIS的小问题。

当我将光标移动到每个点上时，我想要绘制一些内容并获得更多信息。因此，我正在使用GGVIS包和add_tooltip（）函数来完成它。

然而，当我运行下面的代码时，当我将光标移动到点上时，我获得了绘图，但没有获得附加信息。

此外，我想使用单独的函数（tooltip_test），因为我的真实代码有点复杂，而且这个函数对我有很大帮助。

library(ggvis)    
test <- data.frame(ID=1:10, TIME=1:10, COUNTS=rep(1:2,5), EXTRA=c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
    tooltip_test <- function(x) {
      if (is.null(x)) return(NULL)
      if(is.null(x$ID)) return(NULL)

      sub_test = test[test$ID == x$ID, ]
      paste0("Category: ", sub_test$EXTRA)
    }

    test %>%
      ggvis(x= ~TIME, y= ~COUNTS) %>%
      layer_points() %>%
      add_tooltip(tooltip_test, "hover")

Answer 1

    library(ggvis)    
    test <- data.frame(ID=1:10, TIME=1:10, COUNTS=rep(1:2,5), EXTRA=c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
    tooltip_test <- function(x) {
      if (is.null(x)) return(NULL)
     paste0('Category: ', test$EXTRA[x$ID])
    }

test %>%
  ggvis(x= ~TIME, y= ~COUNTS, key := ~ID) %>%
  layer_points() %>%
  add_tooltip(tooltip_test, "hover")

这对你来说已经足够了，你忘了在ggvis实现中添加ID作为关键

ggvis中的工具提示（R和闪亮）

1 个答案: