r - XTS 将功能应用于一天中的时间子集？

Question

如何将汇总函数应用到时间子集？

例如:

r['T16:00/T17:00']$Value

如何在每天的样本小时内为值应用 function (x) quantile(x, c(.90)) 之类的东西？

Answer 1

在完成一天中的时间子集后，您可以使用 apply.daily 将函数应用于每天的数据。

rt <- r['T16:00/T17:00','Value']
rd <- apply.daily(rt, function(x) xts(t(quantile(x,0.9)), end(x)))

您可以看到我需要做一些后空翻以确保从您的函数返回的对象可以由 apply.daily 处理。主要是，它必须是一个多列的 xts 对象，只有一行。