如何在R中的Highchart图例中添加换行符？

install.packages("highcharter")
library(highcharter)

hc <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_title(text = "示例图表") %>%
  hc_xAxis(categories = c("类别1", "类别2", "类别3")) %>%
  hc_series(name = "数据系列1", data = c(1, 2, 3)) %>%
  hc_series(name = "数据系列2", data = c(4, 5, 6))

hc <- hc %>%
  hc_legend(
    layout = "vertical",
    align = "right",
    verticalAlign = "top",
    itemMarginBottom = 10,
    labelFormatter = hc_legend_label_formatter(
      formatter = JS("function() {
        return this.name.replace(' ', '<br>');
      }")
    )
  )

hc