在图表标签上添加句点计数器

时间:2019-05-20 08:21:10

标签: r r-dygraphs

例如,在像这样的音标上:

library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

我想如下自定义标签。代替

1974年1月
1974年2月

我想看看:

1974年1月(1)
1974年2月(2)

我不在乎计数器是否在日期上并置,我只想查看周期增量数,因为鼠标移到序列上。 (当然,不将其显示为序列图)

2 个答案:

答案 0 :(得分:4)

您可以创建自定义的valueFormatter,然后使用row参数捕获期间号。 这是一个示例:

library(dygraphs)
library(htmlwidgets)
lungDeaths <- cbind(mdeaths, fdeaths)

date_counter <- 'function(d,opts, seriesName, dygraph, row, col){
              var monthNames = ["Jan", "Feb", "Mar", "Apr", "May", "Jun","Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
              date = new Date(d);
              return monthNames[date.getMonth()]+", " +date.getFullYear() + " (" + row.toString() + ")";
}'

dygraph(lungDeaths) %>%
  dyAxis("x",valueFormatter=JS(date_counter))

答案 1 :(得分:0)

快速攻克-在数据中创建一列,但隐藏图表中该行的视觉提示:

library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths, row = 1:length(mdeaths))
dygraph(lungDeaths) %>%
  dySeries("row", strokeWidth = 0, pointSize = 0, color = "white")

enter image description here