r - 将多系列 Zoo 对象转换为单系列 Zoo 对象列表

Question

假设我有以下多系列动物园对象:

X.Z <- structure(c(0, 0.01, 0.01, 0, 0, 0.01), .Dim = c(3L, 2L), .Dimnames = list(
NULL, c("FTSE100", "FTALLSH")), index = structure(c(5844, 
                                                    5845, 5846), class = "Date"), class = "zoo")

我想将 X.Z 转换为名为 FTSE100 和 FTALLSH 的 zoo 对象列表。我使用了以下内容:

X.Zs <- list()
for(i in 1:2){
    X.Zs[[i]] <- X.Z[,i]
}
names(X.Zs) <- colnames(X.Z)

还有比上面“更”有效的方法吗？

我的问题与this question相反

Answer 1

lapply可以很简单地做到

X.Zs <- lapply(X.Z,"[")