如何在R语言中修改Highcharts的x轴为年月格式

要把x轴设置为规范的年月格式，需要两步操作：先转换数据的日期格式，再配置Highcharts的x轴参数。

步骤1：转换数据的日期列类型 #

当前你的DATA列是字符串格式，Highcharts的datetime轴需要识别标准日期类型，所以先把字符串转成日期对象。这里提供两种实现方式：

# 方式1：用lubridate包（简洁推荐）
library(lubridate)
data$DATA <- ym(data$DATA)
data2$DATA <- ym(data2$DATA)

# 方式2：用基础R代码
data$DATA <- as.Date(paste0(data$DATA, "/01"), format = "%Y/%m/%d")
data2$DATA <- as.Date(paste0(data2$DATA, "/01"), format = "%Y/%m/%d")

步骤2：配置Highcharts的x轴参数 #

在原有绘图代码中添加hc_xAxis()配置，指定轴类型为datetime，并设置年月显示格式：

highchart() %>%
    hc_add_series(name = "AUM", id = "aum_line", data = data, hcaes(x = DATA, y = AUM), type = 'line') %>%
    hc_add_series(name = 'PL_CUM', id = 'pl_cum_line', data = data2, hcaes(x = DATA, y = CUM_SUM), type = 'line') %>%
    hc_plotOptions(column = list(dataLabels = list(enabled = F),
                                 enableMouseTracking = T)) %>%
    hc_chart(zoomType = 'xy') %>%
    hc_exporting(enabled = TRUE) %>%
    # 添加x轴配置
    hc_xAxis(
        type = "datetime",
        dateTimeLabelFormats = list(
            month = "%Y/%m", # 显示为2022/09格式，若要中文则改为"%Y年%m月"
            year = "%Y"
        ),
        title = list(text = "年月")
    )

额外说明 #

• 转换日期类型后，Highcharts会自动实现时间轴的排序、缩放功能，比纯字符串轴更专业；
• dateTimeLabelFormats中的month对应月份刻度的显示规则，可根据需求自由调整格式字符串。

内容的提问来源于stack exchange，提问作者Caetano Almeida e Brito