ユーザーの操作に応じて動的にプロットする方法について質問しましたが、そのソリューションは私のマシンで非常にうまく機能します。
今度はオンライン バージョンを作成し、 Shinyでホストしたいと考えています。
コードを に入れ、内部の関数server.R
を呼び出そうとしましたが、 の部分が有効になりません。iden()
reactivePlot()
identify()
では、このタスクに関するヒントはありますか?
ユーザーの操作に応じて動的にプロットする方法について質問しましたが、そのソリューションは私のマシンで非常にうまく機能します。
今度はオンライン バージョンを作成し、 Shinyでホストしたいと考えています。
コードを に入れ、内部の関数server.R
を呼び出そうとしましたが、 の部分が有効になりません。iden()
reactivePlot()
identify()
では、このタスクに関するヒントはありますか?
このギャラリー アイテムをお試しください。 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")
}
)