Soru R'de `define ()` yi uygulamak için D3 ve Shiny kullanın


Diye sordum bir soru kullanıcı etkileşimlerine göre çözümlerini dinamik olarak çizme Makinemde oldukça iyi çalışıyor.

Şimdi on-line bir versiyon oluşturmak ve onu barındırmak istiyorum Parlak.

Kodu koymayı denedim server.R ve çağırmak iden() içinde işlev reactivePlot()ama parçası identify() etkili olmaz.

Yani, bu görevdeki herhangi bir ipucu?


54
2017-12-08 22:58


Menşei


Denedin mi rCharts R'den Javascript "çizelgeleri" oluşturmak için paket? Bu Parlak bir App kolayca gömülebilir. - Stéphane Laurent
@ StéphaneLaurent Bu paketi farkettim ama bu soru buluşu öncesinde sorulmuştur. - ziyuang
Dünün interaktif bir ggplot'unu gördüğüme eminim. Zamanında Portföy blogu ama bugün tekrar bulamadım. - Stéphane Laurent


Cevaplar:


Bunu dene galeri öğesi.  Bu hedefi parlak bir şekilde gerçekleştirmek için ggvis'i kullanır. Galeri kaybolursa, buraya benzer bir araç ipucu üretecek bazı minimum kodlar. identify()ggvis kullanarak.

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

Ve daha eksiksiz, ama yine de minimal bir örnek:

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

)

2
2017-09-19 19:24