使用dygraph for R仅按年份绘制xts时间序列？

Question

我正在尝试使用新的dygraphs为R库绘制每年在波士顿马拉松赛中男性和女性的获胜时间.我有一个获胜时间数据帧,这是其中的一部分:

winners <- data.frame(year=1966:1971, mensec=c(8231, 8145, 8537, 8029, 7830, 8325), womensec=c(12100, 12437, 12600, 12166, 11107, 11310))

但我不知道如何从中创建一个xts对象.我可以从每个列创建一个常规时间序列,并使用dygraph在单独的图表中绘制每个列

men <- ts(winners$mensec, frequency = 1, start=winners$year[1])
dygraph(men)
women <- ts(winners$womensec, frequency = 1, start=winners$year[1])
dygraph(women)

如果我尝试cbind时间序列,它将无法在dygraph中工作

both <- cbind(men, women)
dygraph(both)

错误消息是

xts中的错误(x.mat,order.by = order.by,frequency = frequency(x),...):NROW(x)必须匹配长度(order.by)

有什么建议？谢谢

Answer 1

这看起来像是一个bug as.xts.ts.它用于length(x)创建索引的日期序列,该序列返回矩阵的元素数(不是行数).

您可以as.xts在调用cbind它们之前使用ts对象来解决它.

both <- cbind(men=as.xts(men), women=as.xts(women))

Answer 2

看来约书亚回答了这个问题。这是完整的答案，代码略有不同，并且还带有年份 x 轴格式化程序。

library(xts)
library(dygraphs)

winners <- data.frame(
  year=1966:1971
  , mensec=c(8231, 8145, 8537, 8029, 7830, 8325)
  , womensec=c(12100, 12437, 12600, 12166, 11107, 11310)
)

winners_xts <- as.xts(
  winners[-1]
  , order.by = as.Date(
    paste0(winners$year,"-01-01",format="%Y-01-01")
  )
)

dygraph( winners_xts ) %>%
  dyAxis( 
    name="x"
    ,axisLabelFormatter = "function(d){ return d.getFullYear() }"
  )

# using the original data here is a way to merge
#   merge will work just like cbind
#   but need to convert to xts first
men <- ts(winners$mensec, frequency = 1, start=winners$year[1])
women <- ts(winners$womensec, frequency = 1, start=winners$year[1])
do.call(merge,Map(as.xts,list(men=men,women=women)))