在闪亮的应用程序中使用HighCharter的MultiBarChart
在闪亮的应用程序中使用HighCharter的MultiBarChart
提问于 2019-03-16 23:11:28
有没有办法在Shiny app中用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))目标是显示按年龄分组的学生姓名。
回答 1
Stack Overflow用户
发布于 2019-03-19 20:57:25
下面是一个如何在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
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55198250
复制相关文章
相似问题
腾讯云开发者
