r - R.ズー。初日のデータを終日繰り返す

Question

動物園シリーズがあります。持続期間は10年、頻度は15分。

同じ数の要素を持つ新しい動物園シリーズ (またはベクトル) を取得したいと思います。各要素はその日の最初の要素に等しくなります。つまり、毎日の最初の要素が一日中繰り返されます。

これは、aggregate(originalseries,as.Date,head,1) と同じではありません。これは、毎日 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) 

乾杯