Хай-чарты Ось X не отображается правильно

Question

Я хочу показать распределение событий ветротурбины, используя Highcharts.

Моя ось X не будет отображать свои значения полностью хорошо. Я обнаружил, что, когда у меня есть только одно событие, определенное на один год, это портит визуализацию.

Однако, когда у меня есть несколько событий на несколько лет, все идет гладко. Я не знаю, пропускает ли код одну опцию или мне следует использовать другую функцию для отображения моих результатов.

Ниже приведен код и связанные с ним результаты.

library(highcharter)
library(dplyr)
library(highcharter)
    mpgg_EX <- data.frame("Country" = c("Belux","Belux","Belux","Belux","Belux"), "WT_Manufacturer" = c("bubble","bubble","bubble","bubble","fever"), "Start_Event_Date" = c("2013", "2014","2015","2016","2013"),"BLA"=c(0,0,0,0,0),"ELEC"=c(1,0,0,0,0),"MECA"=c(1,1,1,1,1),"OTH"=c(0,0,0,0,0),"PWEL"=c(0,1,0,0,0),"VAR"=c(1,0,0,0,0),stringsAsFactors = FALSE)

       categories_grouped_EX <- mpgg_EX %>% 
        group_by(name = WT_Manufacturer) %>% 
        do(categories = .$Start_Event_Date) %>% 
        list_parse()
    categories_grouped_EX<- lapply(categories_grouped_EX, function(x) x[!is.na(x)])

      hc_indispo_EX <- highchart() %>%
        hc_chart(type = "column") %>%
        hc_colors("#fc5421") %>%   
        hc_title(text = "Unavailability Manufacturer Example") %>%
        hc_xAxis(title = "Suppliers"
                ,type = "category"
                ,categories = categories_grouped_EX
                 ) %>%
        hc_legend(layout = "vertical", verticalAlign = "bottom",align = "right", valueDecimals = 0, reversed = TRUE) %>% 

         hc_plotOptions(
          series = list(
            cropThreshold = 1000,
            stacking = "normal",
            borderWidth = 0,
            grouping = TRUE,
            dataLabels = list(enabled = FALSE)
          )
        ) %>%
            hc_add_series(
          data = mpgg_EX,
          type = "column",
          name = "MECA",
          hcaes(x = Start_Event_Date,
                y = MECA)
         ) %>%
        hc_tooltip(formatter = JS("function(){
           var point = this.point;
           s = '<b>' + this.series.name + '</b>' + ' :' + Highcharts.numberFormat(this.y,0)  + '<br/>';
            s += '<b>' + 'Total : ' + '</b>' + Highcharts.numberFormat(point.stackTotal,0)  + '<br/>';
           return (s)}"
           ))

      hc_indispo_EX