轉換了多系列動物園對象，以單系列動物園的對象列表

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轉換成所謂FTSE100zoo對象的列表和FTALLSH。我使用以下內容：

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,"[")

Answer 2

相反你可以嘗試這樣的事情，從採取這一post：

X.Zs <- lapply(seq_len(dim(X.Z)[2L]), function(i) {x <- X.Z[, i]; class(x) <- 'zoo'; x}) 
names(X.Zs) <- dimnames(X.Z)[[2L]]