Р. Зоопарк Повторите данные первого дня в течение всего дня

Question

У меня есть зоопарк серии.Он длится 10 лет, а его частота составляет 15 минут.

Я хотел бы получить новый зоопарк (или вектор) с таким же количеством элементов, каждый элемент которого равен первому элементу дня.То есть первый элемент каждый день повторяется в течение всего бедного дня.

Это не то же самое, что агрегат (originalseries, as. Date, head, 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) 

ура