我有一个Dygraphs时间序列-在Shiny应用程序上每5分钟收集一次新信息,我想在图上方的框中添加一些信息。当前,它仅显示基于Y轴的图的实际值。但是,我也想显示其他列中未绘制在图表上的其他信息。有可能通过Dygraphs吗?甚至在必要时使用js和CSS。
这是应用程序的link。
这是图形的代码:
dygraph(
as.xts(
timeSeries(
novabase()[(NROW(novabase())-100):NROW(novabase()),'eficiencia_inversa'],
(novabase()$Tempo[(nrow(novabase())-100):nrow(novabase())])
)),
ylab = 'Eficiencia (L/Km)') %>%
dyOptions(fillGraph = TRUE,
drawPoints = TRUE,
fillAlpha = 0.5,
axisLineColor = "white",
gridLineColor = "white",
drawGapEdgePoints = TRUE,
colors = '#9DF90D',
axisLineWidth = 1.5,
axisLabelColor = 'white') %>%
dyRangeSelector(height = 20, strokeColor = "") %>%
dyCSScool()
dyCSScool()只是css的实现,以使盒子更具吸引力。
我希望显示效率以及其他一些指标,例如速度,行驶距离,甚至是一些分类指标。
如果不通过dyGraphs或JavaScript,我该如何使用Shiny :: hoverOps()将X轴上的时间准确地连接到数据库上的信息?怎样才能很好地显示它?