How to create a opposite xaxis and only label the each boxplot name

[LuShuYangMing]

I tried this example, but boxplot are all shift to left. dat <- data_to_boxplot(ToothGrowth,len,dose,supp)

highchart() %>% hc_chart(type = "boxplot") %>% hc_add_series_list(dat)%>%hc_colors(c("green","red"))%>%hc_add_theme(hc_theme_ggplot2())%>% hc_xAxis(list(categories = c('Apples', 'Oranges', 'Pears'),opposite='true',min=0,labels=list(style=list(color='#FF0000'))), list(categories = c('2014', '2015', '2014', '2015', '2014', '2015'),labels=list(rotation=-90))) %>% hc_plotOptions(series=list(groupPadding=-0.25,showInLegend=FALSE)) %>% hc_add_series(data=c(0,0,0,0,0,0),showInLegend=F,xAxis=1,startOnTick=TRUE)