58

ユーザーの操作に応じて動的にプロットする方法について質問しましたが、そのソリューションは私のマシンで非常にうまく機能します。

今度はオンライン バージョンを作成し、 Shinyでホストしたいと考えています。

コードを に入れ、内部の関数server.Rを呼び出そうとしましたが、 の部分が有効になりません。iden()reactivePlot()identify()

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

4

1 に答える 1

2

このギャラリー アイテムをお試しください。 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")
  }

)
于 2014-09-19T19:24:47.857 に答える