例如,在像这样的dygraph上:
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)
我想按如下方式定制标签。而不是
1974年1月
1974年2月
等。
我希望看到:
1974年1月(1)
一九七四年二月(2)
等。
我不关心计数器是否连接在日期上,我只想在鼠标移动到序列上时看到周期递增的数字。(当然不会将其显示为图表上的一个系列)
发布于 2019-05-24 00:31:49
您可以创建一个自定义的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))
发布于 2019-05-23 07:02:05
Quick hack --在数据中创建一列,但在图表中隐藏该行的视觉提示:
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths, row = 1:length(mdeaths))
dygraph(lungDeaths) %>%
dySeries("row", strokeWidth = 0, pointSize = 0, color = "white")
https://stackoverflow.com/questions/56216869
复制相似问题