gvisColumnChart несколько yvar

Я использую Shiny и GoogleVis, чтобы сделать маленькое приложение. Я хочу создать столбчатую диаграмму с помощью gvisColumnChart с 4 переменными. Легенда показывает 4 переменные, но на диаграмме есть только одна переменная (столбик). В этом случае на диаграмме отображаются только столбцы для «Courbature».

Вот мой код:

output$energie = renderGvis({
         gvisColumnChart(dataProfil, 
         xvar = "Date", 
         yvar = c("Courbature", "Sommeil", "Stress", "Energie"))
})

dataProfil взят из файла CSV и выглядит так:

Date    Energie Courbature  Sommeil Stress  Entrainement    
2014-03-15  6      1            9     3     Pratique de rugby   
2014-03-18  3      6            3     4     Pratique de rugby   
2014-03-20  8      3            8     8     Pratique de rugby   
2014-03-21  6      7            5     5     Musculation niveau 2    
2014-03-25  6      2            6     6     Pratique de rugby   
2014-03-28  3      3            3     6     Pratique de rugby

person user3479103    schedule 02.04.2014    source источник


Ответы (1)


Это работает для меня

dataProfil <- read.table(text = "Date    Energie Courbature  Sommeil Stress  Entrainement    
2014-03-15  6      1            9     3     'Pratique de rugby'   
2014-03-18  3      6            3     4     'Pratique de rugby'   
2014-03-20  8      3            8     8     'Pratique de rugby'   
2014-03-21  6      7            5     5     'Musculation niveau 2'    
2014-03-25  6      2            6     6     'Pratique de rugby'   
2014-03-28  3      3            3     6     'Pratique de rugby'"
                         , stringsAsFactors = FALSE, header = TRUE)
require(googleVis)
runApp(list(
  ui = bootstrapPage(
    htmlOutput("energie")  ),
  server = function(input, output) {
    output$energie = renderGvis({
      gvisColumnChart(dataProfil, 
                      xvar = "Date", 
                      yvar = c("Courbature", "Sommeil", "Stress", "Energie"))
    })  }
))

пример GoogleVis

person jdharrison    schedule 10.05.2014