Dygraph毫秒绘图

时间:2015-07-08 17:41:12

标签: r dygraphs

我试图使用R dygraphs包来产生毫秒绘图。 我跟随的例子是 https://github.com/rstudio/dygraphs/issues/46

确切的代码是

require(dygraphs); require(xts); require(htmlwidgets);
CustomAxisLabel <- 'function (d, gran) {
                          return Dygraph.zeropad(d.getHours()) + ":" + 
                                 Dygraph.zeropad(d.getMinutes()) + ":" + 
                                 Dygraph.zeropad(d.getSeconds()) + "." + 
                                 Dygraph.zeropad(d.getMilliseconds());
                         }'
CustomValueFormat = 'function (ms) {
                          var d = new Date(ms);
                          return Dygraph.zeropad(d.getHours()) + ":" + 
                          Dygraph.zeropad(d.getMinutes()) + ":" + 
                          Dygraph.zeropad(d.getSeconds()) + "." + 
                          Dygraph.zeropad(d.getMilliseconds());
                         }'


len <- 60 * 60  + 10
RDData <- xts(runif(len,0,1), seq(as.POSIXct("2015-04-01 10:00:00"),  
                              as.POSIXct("2015-04-02 15:00:00"), length = len),tz="GMT")
dygraph(RDData) %>%  
         dyOptions(useDataTimezone = TRUE) %>% 
         dyAxis("x",axisLabelFormatter =JS(CustomAxisLabel),valueFormatter=JS(CustomValueFormat),ticker="Dygraph.dateTicker") 

不幸的是,我无法使用它 - 我认为它与CustomValueFormat存在问题,但我无法找到它。

1 个答案:

答案 0 :(得分:0)

这些变化使它为我显示了一个情节:

  • 删除第4行中的重复“
  • 将ticker =“Dygraph.dateTicker”添加到最后一行(dyAxis call)

但是,即使进行了这些更改,该图也会忽略小数秒。我尝试在开头附近添加选项(digits.secs = 3),这也无济于事。