使用Highcharter创建负堆积条形图(Likert图)

边缘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)))
边缘363

我已经做了。

highchart() %>% 
  hc_chart(type = "bar") %>% 
  hc_title(text = "Experimental Survey Questions breakdown") %>% 
  hc_yAxis(title = list(text = ""), 
           labels = list(format = "{value}")) %>% 
  hc_plotOptions(series=list(stacking='normal'),column = list( 
    dataLabels = list(enabled = FALSE), 
    enableMouseTracking = TRUE)) %>% 
  hc_legend(enabled = FALSE) %>% 
  hc_xAxis(reversed=FALSE,opposite=TRUE,reversed=FALSE) %>% 
  hc_add_series(name="Value",color=c("rgb(205,35,35)"),data=list(-10, -5, -6))    %>%
  hc_add_series(name="Values",color=c("rgb(165,85,85)"),data=list(-2, -5, -3))  %>%
  hc_add_series(name="neutral",id='neutral',color=c("#766A62"),data=list(-2, -5, -3))  %>%
  hc_add_series(name="Valuess",color=c("rgb(35,35,205)"),data=list(5, 1,6))  %>%
  hc_add_series(name="Valuesss",color=c("rgb(85,85,165)"),data=list(2, 5, 3))  %>%
  hc_add_series(name="Neutral",linkedTo='neutral',color=c("#766A62"),data=list(6, 8, 2))

^为那些寻求答案的人剪裁和晾干,特别感谢优秀的ol jbkunst,他制作了这个令人赞叹的资料库,并彻底改变了我介绍我的研究的方式(您最好是他们避免了wuz;)

我仍然有一个问题,如何使实际值链接在一起(中性线穿过其中,这很la脚。)

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章