D3とShinyを使用して、R

Question

に「identify（）」を実装しました。 が私のマシン上でうまく機能するユーザーのやりとりに応じて動的にプロットする方法についてa questionに尋ねました。

今、オンライン版を作成してShinyでホストしたいと思います。

私はserver.Rにコードを入れてreactivePlot()内iden()機能を起動しようとしましたが、identify()の一部は有効になりません。

このタスクに関するヒントはありますか？

Answer 1

お試しくださいgallery item.このゴールを輝かしいものにするためにggvisを使用しています。 ギャラリーが消えた場合は、identify()に似たツールチップを生成する最小限のコードをggvisで使用します。

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

)