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

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作為鍵