0

我的数据看起来像下面这个人。

> head(data)
                  open   high    low  close
2013-06-20 09:31:00 275.50 276.00 275.08 275.65
2013-06-20 09:32:00 275.61 276.88 275.61 276.67
2013-06-20 09:33:00 276.67 276.72 275.95 276.62
2013-06-20 09:34:00 276.48 277.43 276.27 277.00
2013-06-20 09:35:00 277.00 278.00 277.00 278.00
2013-06-20 09:36:00 277.83 277.97 276.58 277.29

我通过输入以下内容获得唯一天数：

length(levels(as.factor(floor(as.numeric(julian(index(data)))))))

有一个更好的方法吗？我希望有一个 numdays.zoo() 函数或其他东西。

4

2 回答 2

2

我会用xts::ndays

library(xts)
ndays(data)

但是如果你不想加载另一个包，你可以这样做

length(unique(as.Date(time(data))))
于 2013-07-09T00:52:15.453 回答
0

您可以将索引转换为日格式并使用table：

table(format(index(data),'%y-%m-%d'))
13-06-20 
       6

然后天数例如：

  length(names(table(format(index(data),'%y-%m-%d'))))
于 2013-07-09T00:52:57.333 回答