R Highcharter：在 x 轴上，当数据框只有一个结果时，日期显示不正确

Question

我正在构建一个闪亮的应用程序，每月显示实际支出与计划支出。 我创建了允许用户选择特定项目的控件。 但是在一些项目中，只有一个月的计划支出是有的。 对于这些项目，日期在 X 轴上不正确。

他是我写的代码：

renderHighchart({
  highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = planned_vs_actual()$documentDate, title = list(text = "<b>Date</b>"), type = "datetime") %>%
  hc_add_series(name="Planned Expenditure",
                data = planned_vs_actual()$PlannedExpenditure) %>%
  hc_add_series(name="Actual Expenditure",
                data = planned_vs_actual()$ActualExpenditure) %>%
  hc_tooltip(borderWidth = 1.5,
             pointFormat = paste('<span style="color:{series.color}">{series.name}</span>: <b>{point.y}</b><br/>')) %>%
    hc_legend(enabled = TRUE) %>%
  hc_title(text = "Planned vs Actual Expenditure (In Crores)") %>%
  hc_subtitle(text = dataPeriod) %>%
  hc_yAxis(title = list(text = "<b>Amount <br>(In Crores)</br></b>"))%>%
    hc_add_theme(custom_theme)
})

Answer 1

终于在这个链接上找到了解决方案： https : //github.com/jbkunst/highcharter/issues/395

只需要进行此更改：

hc_xAxis(categories = as.list(planned_vs_actual()$documentDate), title = list(text = "<b>Date</b>"), type = "datetime")

将日期放在as.list()函数中以在 x 轴上正确显示它。