2

次のように定義された data.frame EarlyCloses があります。

earlyCloses <- read.table('EarlyCloses.txt', header=T, colClasses= c(rep("character", 3)))
earlyCloses

   StartDate    EndDate EarlyClose
1 2012-12-24 2012-12-24      13:00

xts オブジェクトの価格 Xts を次のように定義します。

prices <- read.table('sample.txt', header=T, colClasses=c("character", "numeric"))
pricesXts = xts(prices$Close, as.POSIXct(prices$Date, tz='America/New_York'))
colnames(pricesXts) = c("Close")
pricesXts$CloseTime = NA
pricesXts

              Close CloseTime
2012-12-21 13190.84        NA
2012-12-24 13139.08        NA
2012-12-26 13114.59        NA
2012-12-27 13096.31        NA
2012-12-28 12938.11        NA

ここで、earlyCloses の行に対して for ループを実行し、priceXts の CloseTime を設定します。

for (i in 1:nrow(earlyCloses)) {
   pricesXts[paste(earlyCloses[i,"StartDate"], earlyCloses[i,"EndDate"], sep='/'), 2] = earlyCloses[i,"EarlyClose"]
}
pricesXts

           Close      CloseTime
2012-12-21 "13190.84" NA       
2012-12-24 "13139.08" "13:00"  
2012-12-26 "13114.59" NA       
2012-12-27 "13096.31" NA       
2012-12-28 "12938.11" NA

xts オブジェクトの Close 列のクラスが数値から文字に変更されたのはなぜですか? これは、xts オブジェクトが内部的に行列として表現されているためですか? この変換を回避する方法はありますか?

4

1 に答える 1

2

xtsマトリックスとして内部的にエンコードされます (パフォーマンスが向上します)。アーリー クローズを格納するだけなので、数値に変換できます。次に例を示します。

strptime(earlyCloses$EarlyClose,'%H:%M')$hour

それで

for (i in 1:nrow(earlyCloses))
   pricesXts[paste(earlyCloses[i,"StartDate"], 
                   earlyCloses[i,"EndDate"], 
                   sep='/'), 2] <- strptime(earlyCloses$EarlyClose,'%H:%M')$hour


           Close CloseTime
2012-12-21 13191        NA
2012-12-24 13139        13
2012-12-26 13115        NA
2012-12-27 13096        NA
2012-12-28 12938        NA
于 2013-03-02T22:04:17.663 に答える