Javascript 使用D3和SHINK在R中实现'identify（）

我问过如何根据用户交互动态绘制，谁的解决方案 在我的机器上运行得很好

现在我想制作一个在线版本，并用它来主持

我已尝试将代码放入

server.R

并调用

reactivePlot（）

中的

iden（）

函数，但

identify（）

部分无效

那么，关于这项任务有什么提示吗？

试试看，它使用ggvis在shiny中实现这一目标。 如果库消失，下面是一些使用ggvis生成工具提示的最小代码，类似于

identify（）

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

require（ggvis）
mtcars$model%ggvis（~wt，~mpg，key:=~model）%>%
图层_点（）%>%
添加工具提示（功能（df）df$模型）

还有一个更完整但仍然很简单的例子：

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")
  }

)

require（闪亮）
需要（ggvis）
mtcars$model%
图层_点（）%>%
添加工具提示（功能（df）df$模型）
})
vis%>%bind_闪亮（“carsplot”）
}
)

您是否尝试使用该软件包从R创建Javascript“图表”？这很容易嵌入到一个闪亮的应用程序中。@Stéphanelant我注意到了这个软件包，但这个问题在它发明之前就被问到了。我很确定昨天我看到了一个互动的ggplot，但今天我再也找不到了。