javascript - library - github d3



Use D3 y Shiny para implementar `identify()` en R (1)

Prueba este elemento de la galería. Utiliza ggvis para lograr este objetivo en brillante. En caso de que la galería desaparezca, aquí hay un código mínimo que producirá una información sobre herramientas, similar a identify() , usando ggvis.

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

Y, un ejemplo más completo, pero aún mínimo:

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

)

Hice una pregunta sobre cómo trazar dinámicamente de acuerdo con las interacciones del usuario, cuya solución funciona bastante bien en mi máquina.

Ahora quiero hacer una versión en línea y alojarla con Shiny .

He intentado poner el código en server.R e invocar la función iden() dentro de reactivePlot() , pero la parte de identify() no tiene efecto.

Entonces, ¿alguna pista sobre esta tarea?





shiny