D3 및 Shiny를 사용하여 R에서`identify ()`구현

D3 및 Shiny를 사용하여 R에서`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")
  }

)

참조 URL : https://stackoverflow.com/questions/13782803/use-d3-and-shiny-to-implement-identify-in-r