如何解决Recharts4r-沿轴格式化日期
如何在echarts4r中控制日期格式?我可以看到货币,百分比和小数的格式器,但没有日期格式。
这是https://rpubs.com/paul_simmering/echarts
中的一个例子library(echarts4r)
library(nycflights13) # data
library(tidyverse)
flights_ts <- flights %>%
transmute(week = as.Date(cut(time_hour,"week")),dep_delay,origin) %>%
group_by(origin,week) %>% # works with echarts
summarise(dep_delay = sum(dep_delay,na.rm = TRUE))
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))
ts_base %>% e_line(dep_delay)
图表日期的格式为month-date-year,我想更改为year-month-date:
解决方法
您可以将自定义JavaScript函数传递到formatter
内的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)
您将获得:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。