r - gvisColumnChart 多个 yvar

Question

我正在使用 shiny 和 googleVis 制作一个小应用程序。我想用 4 个 yvar 的 gvisColumnChart 创建一个柱形图。图例显示了 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

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