我试图在需要对X轴进行分组的地方使用Highchart作图。
我的尝试:
> data<-read.csv("C:/Users/sd13519/Desktop/Data.csv",stringsAsFactors = FALSE)
> data
ORDER TL ML MXL CL DATE
1 460 15 5.5 25 19 10/19/2018
2 610 15 5.5 25 18 10/26/2018
3 535 15 5.5 25 19 10/25/2018
4 679 15 5.5 25 16 10/31/2018
5 677 15 5.5 25 16 10/31/2018
6 456 15 5.5 25 11 10/19/2018
7 405 15 5.5 25 13 10/17/2018
8 409 15 5.5 25 12 10/18/2018
9 400 15 5.5 25 13 10/16/2018
10 462 15 5.5 25 16 10/22/2018
11 617 15 5.5 25 11 10/29/2018
12 331 15 5.5 25 13 10/15/2018
13 333 15 5.5 25 11 10/16/2018
14 407 15 5.5 25 16 10/17/2018
15 466 15 5.5 25 16 10/23/2018
16 615 15 5.5 25 16 10/29/2018
17 537 15 5.5 25 11 10/25/2018
18 474 15 5.5 25 19 10/24/2018
19 476 15 5.5 25 19 10/24/2018
20 675 15 5.5 25 17 10/31/2018
21 402 15 5.5 25 18 10/16/2018
22 612 15 5.5 25 13 10/26/2018
23 458 15 5.5 25 11 10/19/2018
24 464 15 5.5 25 12 10/22/2018
> categories_grouped <- data %>%
group_by(name = DATE) %>%
do(categories = .$ORDER) %>%
list_parse()
> hc<-highchart()%>%
hc_xAxis(categories=categories_grouped,title = list(text = "Order No with Date"))%>%
hc_yAxis(title = list(text = "Performance"),labels = list(format= '{value}',style=list(color="#4682B4")))%>%
hc_tooltip(shared=TRUE)%>%
hc_add_series(name="TL",data=data$TL)%>%
hc_add_series(name="ML",data=data$ML)%>%
hc_add_series(name="MXL",data=data$MXL)%>%
hc_add_series(name="CL",data=data$CL)
hc
最后一个红色标记的部分未正确显示。 我可能误解了分组类别的概念。 我喜欢根据日期类别显示订单。 但是类别显示不正确。.
我发现
上的记录所有其他日子都有多于1条记录,但是该日期只有一条记录。 因此,如果我通过分组来考虑或允许这样做来创建列表?
从this获得帮助 预先感谢...