使用D3和Shiny在R中實現`identify（）`

Question

我詢問a question如何根據用戶交互進行動態繪圖，其解決方案 在我的機器上工作得很好。

現在我想製作一個在線版本並將其與Shiny一起託管。

我試圖把代碼放到server.R並調用內部reactivePlot()的iden()功能，但identify()的部分不生效。

那麼，這個任務有什麼提示？

Answer 1

試試這個gallery item.它使用ggvis來實現這個閃亮的目標。 如果圖庫消失，下面是一些最小的代碼，它將使用ggvis生成類似於identify()的工具提示。

require(ggvis) 
mtcars$model<-rownames(mtcars) 
mtcars %>% ggvis(~wt, ~mpg,key:=~model) %>% 
    layer_points() %>% 
    add_tooltip(function(df) df$model) 

而且，更完整，但還是小例子：

require(shiny) 
require(ggvis) 
mtcars$model<-rownames(mtcars) 

shinyApp(
    ui = fluidPage(
    sidebarLayout(
     sidebarPanel(h2("GGVis to Identify Points")), 
     mainPanel(ggvisOutput("carsplot")) 
    ) 
), 
    server = function(input, output) { 
    vis <- reactive({ 
     mtcars %>% ggvis(~wt, ~mpg,key:=~model) %>% 
     layer_points() %>% 
     add_tooltip(function(df) df$model) 
    }) 
    vis %>% bind_shiny("carsplot") 
    } 

)