Kaç puan almak & Android işletim sistemi, Google Haritalar rota çizebilirim?

Bu ggvis parlak, bu hedefe ulaşmak için kullanır gallery item. deneyin. Galeri kaybolur diye, burada bir ipucu üretmek, identify(), ggvis kullanmaya benzer bazı minimal kodudur.

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

Ve, daha kapsamlı, ama hala en az 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")
  }

)