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

Question

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

我查看了dyOptions 和dyLegend，但看不到任何可以帮助我解决此问题的信息...

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

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

为了提供一些额外的细节...我希望轴和图例的格式都像：“Wed 22 Jan 2020 08:35:05”。

Answer 1

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

我不确定你是否可以访问任何 dygraph 导入的 javascript 库，所以为了简单起见，我包含了一个 vanilla javascript sn-p，它以我认为你想要的格式给出日期。可以使用 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)