小编Edg*_*363的帖子

梦想是 Jkunst 做出响应，但我正在尝试使用 highcharter 创建负堆积条形图，例如此处的 highcharts 演示 - http://jsfiddle.net/KV5KV/

我已经尝试过交换所有选项，但我似乎无法让它一次显示多个系列，如果有人可以提供帮助，那就太好了。这是我试图在 R 中运行的内容。

 highchart() %>% 
      hc_chart(type = "bar") %>% 
      hc_title(text = "stuff") %>% 
      hc_yAxis(title = list(text = ""), 
               labels = list(format = "{value}"), min=0) %>% 
      hc_plotOptions(column = list( 
        series=list(stacking='normal'),
        dataLabels = list(enabled = FALSE), 
        enableMouseTracking = TRUE)) %>% 
      hc_legend(enabled = FALSE) %>% 
      hc_xAxis(reversed=FALSE,opposite=TRUE,reversed=FALSE, linkedTo=0) %>% 
      hc_series(list(name="Value",color=c("#766A62"),data=list(-10, -5, -6)))    %>%
      hc_add_series(list(name="Value",color=c("#766A62"),data=list(-2, -5, -3)))  %>%
      hc_add_series(list(name="neutral",id='neutral',color=c("#766A62"),data=list(-2, -5, -3)))  %>%
      hc_add_series(list(name="Value",color=c("#766A62"),data=list(5, 1,6)))  %>%
      hc_add_series(list(name="Value",color=c("#766A62"),data=list(2, 5, 3)))  %>%
      hc_add_series(list(linkedTo='neutral',name="neutral",color=c("#766A62"),data=list(6, 8, 2)))

我需要在闪亮的应用程序（highcharter、rcharts 等）上使用 R 的任何 highcharts 包向饼图添加图例。

前任。代码

library("shiny")
library("highcharter")

data(citytemp)

ui <- fluidPage(
  h1("Highcharter Demo"),
  fluidRow(
    column(width = 4, class = "panel",
           selectInput("type", label = "Type", width = "100%",
                       choices = c("line", "column", "bar", "spline")), 
           selectInput("stacked", label = "Stacked",  width = "100%",
                       choices = c(FALSE, "normal", "percent")),
           selectInput("theme", label = "Theme",  width = "100%",
                       choices = c(FALSE, "fivethirtyeight", "economist",
                                   "darkunica", "gridlight", "sandsignika",
                                   "null", "handdrwran", "chalk")
           )
    ),
    column(width = 8,
           highchartOutput("hcontainer",height = "500px")
    )
  )
)

server = function(input, output) …