r - Dygraph 图例时间-日期格式更改为包括星期几

Question

您好，我正在使用 R dygraphs包，并希望能够更改图例时间-日期格式以包括星期几(即“%a”)

我看过 dyOptions和 dyLegend但看不到任何可以帮助我解决这个问题的东西......

下面是一个简单的例子......但理想情况下希望它在 Shiny 的应用程序中......

library(dygraphs)
library(xts)
dygraph(xts(rnorm(100),Sys.time()+seq(100)),main='random_graph')

为了提供一些额外的细节......我想要一种格式，例如:“Wed 22 Jan 2020 08:35:05” 轴和图例。

Answer 1

有可能的。您需要提供axisLabelFormatter dygraphs::dyAxis 的参数带有一个 Javascript 函数，它接受一个日期参数并根据该日期返回一个字符串。该函数只是作为字符串传入。

我不确定您是否可以访问 dygraph 导入的任何 javascript 库，因此为了简单起见，我包含了一个 vanilla javascript 代码段，该代码段以我假设您想要的格式提供日期。可以使用 javascript 函数轻松扩展或修改它 getYear() getFullYear() getHours() getMinutes()和 getSeconds()

library(dygraphs)
library(xts)

my_js <- 'function(d)
          {
            var d = new Date(d.getTime() + 7200*1000);
            var weekday = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];
            var months  = ["Jan", "Feb", "Mar", "Apr", "May", "Jun",
                           "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
            var result = ""
            result += weekday[d.getDay()] + " " + d.getDate()
            result += " " + months[d.getMonth()] + " " + d.getFullYear();
            return result;
          }'

set.seed(69)
dg <- dygraph(xts(rnorm(100), Sys.time() + seq(100)*10000), main = 'random_graph')
dyAxis(dg, name = "x", axisLabelFormatter = my_js)