R.动物园。全天重复第一天的数据

Question

我有一个动物园系列。它持续10年，频率为15分钟。

我想与相同数量的元素，以得到一个新的动物园系列（或载体），均可进行每个元素等于一天的第一个元素。这就是说，每天的第一个元素是在整个蛀虫日重复。

这不是相同集合体（originalseries，as.Date，头，1），因为这给出了每天仅一个元件的载体。

欢呼

Answer 1

我有几个答案：

library(zoo) 
library(chron) 

#1 
zz <- z <- zoo(1:10, chron(0:9/5)) 
zz[] <- ave(coredata(z), as.Date(time(z)), FUN = function(x) head(x, 1)) 
cbind(z, zz) 


#2 
z <- zoo(1:10, chron(0:9/5)) 
z.ag <- aggregate(z, as.Date, head, 1) 
na.locf(z.ag, xout = time(z)) 


#3 
z.na <- ifelse.zoo(!duplicated(as.Date(time(z))), z, NA) 
na.locf(z.na) 

欢呼