闪亮应用程序中带有 HighCharter 的 MultiBarChart答案

【问题标题】：MultiBarChart with HighCharter in shiny app闪亮应用程序中带有 HighCharter 的 MultiBarChart
【发布时间】：2019-08-07 10:58:03
【问题描述】：

有没有办法在 Shiny 应用程序中使用 highcharter 包绘制这样的图表？

https://www.highcharts.com/demo/column-stacked-and-grouped

这是我的数据框：

names <- c("Sr. Blue","Sr. Green","Sr. Brown","Sr. Yellow","Sr. Purple","Sr. Fish","Sr. Greek","Sr. Red","Sr. Dark")
names <- names[rep(seq_len(length(names)), each=5)]
teachers <- data.frame(name = names, age = rep(c("0-4","4-9","9-15","15-20","+20"),9),students = sample(1:50,45))

目标是按年龄分组显示学生的姓名。

【问题讨论】：

你试过rCharts吗？

标签： r highcharts shiny r-highcharter

【解决方案1】：

以下是如何在 Highcharts (Highcharter) 和 Shiny 中绘制堆积柱形图的示例：

library(shiny)
library(highcharter)
ui <- fluidPage(
  h1("Highcharts Shiny stacked column demo"),
  fluidRow(
    column(width = 12, highchartOutput("hcontainer",height = "500px"))
  )
)
server = function(input, output) {
  output$hcontainer <- renderHighchart({
    hc <- highchart() %>%
      hc_chart(type = 'column') %>%
      hc_xAxis(categories = c('Apples', 'Oranges', 'Pears', 'Grapes', 'Bananas')) %>%
      hc_plotOptions(series = list(stacking = 'normal')) %>%
      hc_add_series(
        name = 'John',
        data = list(5, 3, 4, 7, 2),
        stack = 'male'
      ) %>%
      hc_add_series(
        name = 'Joe',
        data = list(3, 4, 4, 2, 5),
        stack = 'male'
      ) %>%
      hc_add_series(
        name = 'Jane',
        data = list(2, 5, 6, 2, 1),
        stack = 'female'
      ) %>%
      hc_add_series(
        name = 'Janet',
        data = list(3, 0, 4, 4, 3),
        stack = 'female'
      )
    hc
  })
}
shinyApp(ui = ui, server = server)

我不是 R 开发人员，所以我不知道您的数据到底是什么样的，但如果您提供有关 x 类别、系列名称和 y 值的更多详细信息，我会尽力帮助您完成图表和编辑我的回答。

这是上图的纯JS代码：https://jsfiddle.net/BlackLabel/wgthu2L5

一些 API 参考可能有用：https://api.highcharts.com/highcharts/plotOptions.series.stacking https://api.highcharts.com/highcharts/series.column.stack https://api.highcharts.com/highcharts/xAxis.categories

【讨论】：