highcharter: выбросы BoxPlot не находятся в правильной точке оси x - PullRequest
Новая
       8

highcharter: выбросы BoxPlot не находятся в правильной точке оси x

0 голосов
/ 03 июля 2018

У меня есть набор данных, который я хотел бы создать на диаграмме в виде диаграммы с выбросами в highcharter. Поле работает, но я не могу получить выбросы в правильном положении x-axis; все они сгруппированы в позиции 0 по какой-то причине. Графики квадратов правильные, поэтому я не уверен, почему выбросы не следуют за квадратами.

Ниже мой код: 

library (highcharter)

Quote <- c(12,15,16,12,14,19,13,12,17,15,14,18,22,25,29,30,14,2,5,4)
Other <- c(30,35,36,12,18,35,39,41,42,43,45,31,37,35,32,31,34,36,32,15)
Shop <- c(2,1,5,4,6,9,5,4,7,8,1,5,4,3,5,4,1,5,15,19)
PN <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

Dat <- data.frame(Quote,Other,Shop, PN)

highchart() %>%
  hc_add_series_boxplot(Dat$Quote, Dat$PN, name = "Quote Hold Time", color = "#FF8888", pointStart = 0) %>%
  hc_add_series_boxplot(Dat$Other, Dat$PN, name = "Other Hold Time", color = "#E5A919", pointStart = 1) %>%
  hc_add_series_boxplot(Dat$Shop, Dat$PN, name = "Shop Time", color = "#51C1BC", pointStart = 2) %>%
  hc_xAxis(categories = c("Quote Hold","Other Hold","Shop Time"), labels = list(enabled = TRUE)) %>%
  hc_yAxis(labels = list(format = "{value} days"), min = 0) %>%
  hc_plotOptions(series = list(grouping = FALSE))

Ниже приведена картина проблемы. Все scatter (outliers) расположены под категорией удержания цитаты по оси X.

enter image description here

1 Ответ

0 голосов
/ 06 июля 2018

Я понял, выполняя некоторые манипуляции с данными, поэтому все данные находятся в одной серии. Я не мог понять, как сделать выбросы того же цвета, что и на блокпосте в данном x-столбце, но также можно перевести их на один и тот же оттенок. 

library (highcharter)

Quote <- c(12,15,16,12,14,19,13,12,17,15,14,18,22,25,29,30,14,2,5,4)
Other <- c(30,35,36,12,18,35,39,41,42,43,45,31,37,35,32,31,34,36,32,15)
Shop <- c(2,1,5,4,6,9,5,4,7,8,1,5,4,3,5,4,1,5,15,19)
PN <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

Dat <- data.frame(Quote,Other,Shop, PN)

Dat$QuoteType <- rep("Quote",nrow(Dat))
Dat$OtherType <- rep("Other",nrow(Dat))
Dat$ShopType <- rep("Shop",nrow(Dat))

Dat1 <- Dat[,c("Quote","QuoteType")]
colnames(Dat1) <- c("Value","Type")
Dat2 <- Dat[,c("Other","OtherType")]
colnames(Dat2) <- c("Value","Type")
Dat3 <- Dat[,c("Shop","ShopType")]
colnames(Dat3) <- c("Value","Type")

DatComb <- rbind(Dat1,Dat2,Dat3)

highchart() %>%
  hc_add_series_boxplot(DatComb$Value, DatComb$Type, colors = c("#FF8888","#E5A919","#51C1BC"), name = "Test") %>%
  hc_yAxis(labels = list(format = "{value} days"), min = 0) %>%
  hc_plotOptions(boxplot = list(colorByPoint = TRUE), scatter = list(color = c("#A6BBC8")))
...