ggvis，条形图的工具提示

Question

我正在尝试为我的条形图创建工具提示。我在layer_points上尝试了相同的代码，它工作正常。但是，当我将其切换到layer_bars时，该功能不再起作用。对于这种情况，工具提示不显示。有人可以帮忙吗？这是我的代码：

我使用的数据包含X：索引和ss.plus：一些正数

ui.R：

library(ggvis)
shinyUI(fluidPage("test",
   fluidRow(
     plotOutput("realdata", height = "200")
   ),
   sidebarLayout(
     sidebarPanel(
      sliderInput("range.real", label="select the range of view", min=1, max=1808, value=c(1, 50) )
    ),
    mainPanel(
      ggvisOutput("barplus")

   )             
  )
)) 

Server.R：

library(ggvis)
shinyServer(function(input, output, session){

sub.data <- reactive({
  real.data[input$range.real[1]:input$range.real[2],]
})


on_hover <- function(x){
  if(is.null(x)) return(NULL)
  paste0(x$X, ",", x$ss.plus)
}


sub.data %>%
  ggvis(~X, ~ss.plus) %>%
  layer_bars(width=0.8) %>%
  add_tooltip(on_hover, "hover") %>%
  bind_shiny("barplus")
})