Question

所以我在闪亮的应用程序中有一个ggvis图，这是一个直方图，当用户将鼠标悬停在垃圾箱上时，它会显示垃圾箱中的观察计数。数据是随机生成的，用户可以点击按钮来采样新批量数据。一切正常，除了在对一批新数据进行采样和绘图之后，工具提示仍然显示原始数据中每个bin中的计数，这当然与当前数据不匹配。有没有办法来解决这个问题？以下是我可重复的最小例子。

toolTipFunc <- function(value) {
  function(y) {
    if (is.null(y)) return(NULL)
    else {
      length(value[(value >= y$xmin_) & (value < y$xmax_)])
    }
  }
}


library(shiny)
library(ggvis)

runApp(list(

ui = pageWithSidebar(
div(),
sidebarPanel(
   actionButton("sampleButton", "Sample")),

 mainPanel(
   ggvisOutput("plot"))),

 server = function(input, output) {

   sampleInput <- reactive({
     input$sampleButton
     x <- rnorm(500,0,1.5)
     data.frame(x)
   })

   gv <- reactive({
     df <- sampleInput()
     df %>% ggvis(~x) %>% 
       add_tooltip(toolTipFunc(df$x), "hover") %>% 
       layer_histograms(width=0.5) %>%
       set_options(width=540,height=350,keep_aspect=TRUE)
   })

   gv %>% bind_shiny("plot")

 }))

Answer 1

谷歌ggvis小组here上有一个可行的解决方案。基本上，您不需要详细的，单独的tool_tip函数。如果使用默认的stack = TRUE

，您可以使用以下内容

gv <- reactive({
  df <- sampleInput()
  df %>% ggvis(~x) %>% 
    layer_histograms(width=0.5) %>%
    add_tooltip(function(df){ df$stack_upr_ - df$stack_lwr_}) %>%
    set_options(width=540,height=350,keep_aspect=TRUE)
})

或stack=FALSE

gv <- reactive({
  df <- sampleInput()
  df %>% ggvis(~x) %>% 
    layer_histograms(width=0.5, stack=FALSE) %>%
    add_tooltip(function(df){ df$count_}) %>%
    set_options(width=540,height=350,keep_aspect=TRUE)
})

即使绘图更新，R闪亮的ggvis工具提示也不会使用新数据更新信息

1 个答案: