Сгруппированный график hPlot (rCharts) - xAxis по порядку - PullRequest
Новая
       37

Сгруппированный график hPlot (rCharts) - xAxis по порядку

0 голосов
/ 20 апреля 2019

У меня проблемы с порядком xAxis в hplot (rCharts) и действием наведения мыши на график. У меня есть данные, упорядоченные по месяцам и состоянию платежа, и я хотел бы, чтобы месяцы были указаны в моем xAxis, однако, я вижу, что при наведении курсора мыши на серию, например, вместо января отображается апрель. Я понимаю, что hPlot упорядочивает по алфавиту, но я хочу "синхронизировать" эти две информации.

Есть ли способ сделать это?

Фактическое изображение на выходе 

library(rCharts)
monthUnique <- data.frame(month=c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"))
monthUnique <- monthUnique[rep(seq_len(nrow(monthUnique)), each=4),]
monthStatus <- data.frame(month = monthUnique, status = rep(c("Canceled","Pending","Paid","Suspended"),12),students = sample(1:50,48))

graph <- hPlot(students~month, data = monthStatus, type = c('column'), group = 'status', title = "Status by month")
graph$yAxis(title = list(text = ""),labels = list(style = list(fontSize = "15px")))
graph$legend(align = 'right', verticalAlign = 'top', layout = 'vertical')
ord <- c("Canceled"=0,"Pending"=1,"Paid"=2,"Suspended"=3)
graph$params$series <- lapply(graph$params$series, function(d){
    temp = ord[d$name]
    names(temp) = NULL
    d$legendIndex = temp
    return(d)
})
graph$colors('rgba(255, 0, 0, 0.45)', 'rgba(249, 120, 0, 0.45)', 'rgba(174,62,208, 0.45)', 'rgba(177,177,177, 0.45)')
graph$xAxis(categories = unique(mesfinal$mes), title = list(text = ""),labels = list(style = list(fontSize = "15px")))
graph
...