如何改变时间图R中的悬停信息

发布于03月28日

我一直在try 用dygraphs in R绘制时间序列.我试着改变我们在图右上角得到的悬停信息.

数据有一列"value"，由另一列"encage"转换而来.在悬停信息中，我只想显示日期和百分比，而不是值，这是绘制在y2轴.

这里我复制了数据和dygraphs R代码:

dates <- seq(as.POSIXct("2021-01-01 05:00:00"), as.POSIXct("2021-01-05 05:00:00"), by = 8*3600)

df <- data.frame(date = dates,
                 percentage = round(runif(
                   length(dates), min = 0, max = 1
                 ), digits = 2))

df$value <- df$percentage * 100

dygraph(df) %>%
  dyAxis(name = "y2") %>%
  dySeries("value", axis = "y2", pointSize = 0, strokeWidth = 0) %>%
  dyOptions(drawPoints = T, pointSize = 3)

现在，在悬停信息中，我不想显示value的标签，即标签将只有日期和百分比.

如何从悬停信息中省略此信息？

推荐答案

目前，dygraphs包中没有包含legendFormatter，所以我们可能需要一个小的变通方法:这个 idea 是在dygraph中添加CSS，从而使value部分不可见.定义

MyDyGraph <- function(dygraph){
  
  dygraph$x$css <- '
        .dygraph-legend span:nth-child(2) {
          font-size: 0;
        }
  '
  dygraph
}

并在建筑中称之为:

dygraph(df) |> 
  dyAxis(name = "y2") |> 
  dySeries("value", axis = "y2", pointSize = 0, strokeWidth = 0)  |> 
  dyOptions(drawPoints = T, pointSize = 3) |> 
  MyDyGraph()

然后它看起来像这样没有盘旋: