R echarts4r-在axis中设置日期格式

如何在echarts4r中控制日期格式？有一个货币、百分比和小数的格式化程序，但我看不到日期

这里有一个例子

库（echarts4r）
图书馆（nycflights13）#数据
图书馆（tidyverse）
航班%
转换（周=截止日期（截止时间，周），深度延迟，起点）%>%
组员（原籍，周）%>%#与echarts合作
总结（dep_延迟=总和（dep_延迟，na.rm=真））
ts_基数%
e_图表（x=周）%>%
e_数据缩放(
type=“slider”，
工具箱=假，
底部=-5
) %>% 
e_工具提示（）%>%
e_标题（“机场航班延误”）%>%
e_x_轴（周，轴指针=列表（显示=真））
ts_基准%>%e_线（dep_延迟）

图表日期的格式为“月日期年”，我想将其更改为“年-月日期”：

---

您可以将自定义JavaScript函数传递到

axisLabel

中的

格式化程序

参数，如下所示：

library(echarts4r)
library(nycflights13) # data
library(tidyverse)

yearMonthDate <- htmlwidgets::JS('function (value) {
  var d = new Date(value);
  var datestring = d.getFullYear() + "-" + ("0"+(d.getMonth()+1)).slice(-2) + "-" + ("0" + d.getDate()).slice(-2)
  return datestring
}')

ts_base <- flights_ts %>% 
  e_charts(x = week) %>% 
  e_datazoom(
    type = "slider", 
    toolbox = FALSE,
    bottom = -5
  ) %>% 
  e_tooltip() %>% 
  e_title("Departure delays by airport") %>% 
  e_x_axis(
    week, 
    axisPointer = list(show = TRUE),
    axisLabel = list(
      formatter = yearMonthDate
    ))

ts_base %>% e_line(dep_delay)

库（echarts4r）
图书馆（nycflights13）#数据
图书馆（tidyverse）
年月日%
e_数据缩放(
type=“slider”，
工具箱=假，
底部=-5
) %>% 
e_工具提示（）%>%
e_标题（“机场航班延误”）%>%
e_x_轴(
周，
axisPointer=list（show=TRUE），
axisLabel=列表(
格式化程序=年月日
))
ts_基准%>%e_线（dep_延迟）

您将获得：

library(echarts4r)
library(nycflights13) # data
library(tidyverse)

yearMonthDate <- htmlwidgets::JS('function (value) {
  var d = new Date(value);
  var datestring = d.getFullYear() + "-" + ("0"+(d.getMonth()+1)).slice(-2) + "-" + ("0" + d.getDate()).slice(-2)
  return datestring
}')

ts_base <- flights_ts %>% 
  e_charts(x = week) %>% 
  e_datazoom(
    type = "slider", 
    toolbox = FALSE,
    bottom = -5
  ) %>% 
  e_tooltip() %>% 
  e_title("Departure delays by airport") %>% 
  e_x_axis(
    week, 
    axisPointer = list(show = TRUE),
    axisLabel = list(
      formatter = yearMonthDate
    ))

ts_base %>% e_line(dep_delay)