参考までに、3100さん曰く「ベクトル単位で」処理する方法を幾つか述べておきます。
質問のコードからすると、反復可能な配列x
がありますね。なら、一気に処理してしまいましょう:
library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object') # xtsの例から引用
x <- c(sample.xts,sample.xts,sample.xts) # xtsオブジェクトでもベクトルに挿入できる
vx <- sapply(x, as.vector)
出力を検査して見ると、データ自体に損害はないようです(が、xts
の経験がまったくないので自分でご確認を):
> str(x)
An ‘xts’ object on 2007-01-02/2007-06-30 containing:
Data: num [1:540, 1:4] 50 50 50 50.2 50.2 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "Open" "High" "Low" "Close"
Indexed by objects of class: [POSIXct,POSIXt] TZ:
xts Attributes:
List of 1
$ descr: chr "my new xts object"
> str(vx)
num [1:540, 1:4] 50 50 50 50.2 50.2 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "Open" "High" "Low" "Close"
ただし、c()
でつないだせいか、x
を構成する三つのxts
オブジェクト(そしてvx
の列)が一つになってしまいましたね。回避方法として、オブジェクトの構成を残すlist()
に挿入できます。
x <- list(sample.xts,sample.xts,sample.xts)
vx <- lapply(x, as.vector)
すると、
> str(x)
List of 3
$ :An ‘xts’ object on 2007-01-02/2007-06-30 containing:
Data: num [1:180, 1:4] 50 50.2 50.4 50.4 50.2 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "Open" "High" "Low" "Close"
Indexed by objects of class: [POSIXct,POSIXt] TZ:
xts Attributes:
List of 1
..$ descr: chr "my new xts object"
$ :An ‘xts’ object on 2007-01-02/2007-06-30 containing:
Data: num [1:180, 1:4] 50 50.2 50.4 50.4 50.2 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "Open" "High" "Low" "Close"
Indexed by objects of class: [POSIXct,POSIXt] TZ:
xts Attributes:
List of 1
..$ descr: chr "my new xts object"
$ :An ‘xts’ object on 2007-01-02/2007-06-30 containing:
Data: num [1:180, 1:4] 50 50.2 50.4 50.4 50.2 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "Open" "High" "Low" "Close"
Indexed by objects of class: [POSIXct,POSIXt] TZ:
xts Attributes:
List of 1
..$ descr: chr "my new xts object"
> str(vx)
List of 3
$ : num [1:720] 50 50.2 50.4 50.4 50.2 ...
$ : num [1:720] 50 50.2 50.4 50.4 50.2 ...
$ : num [1:720] 50 50.2 50.4 50.4 50.2 ...
という結果になります。これで三つのベクトルが得られましたが、前よりデータの構築情報が消えています。
妥協策として、as.vector
の代わりにas.matrix
をlapply
でコールすれば良くなりますが、最初の質問からどんどん離れていきますので、ここで終わりにします。ともかく、Rのapply
系関数は強力なものです。
更なる参考リンク: