サブセットタイムアウト時系列R

Question

私はgetSymbols(^DJI)で試してみましたが、文脈のためにヤフーから別の問題に関連する可能性のあるエラーメッセージが出ました。

ポイントは、私が実行できるようにするために、時系列に十分に近い形式にマッサージ、一度ダウンロード、およびRにインポートしていることであるchartSeries(DJI)：

require(RCurl) 
require(foreign) 
x <- getURL("https://raw.githubusercontent.com/RInterested/datasets/gh-pages/%5EDJI.csv") 
DJI <- read.csv(text = x, sep =",") 
DJI$Date <- as.Date(DJI$Date, format = "%m/%d/%Y") # Formatting Date as.Date 
rownames(DJI) <- DJI$Date       # Assigning Date to row names 
DJI$Date <- NULL         # Removing the Date column 
chartSeries(DJI, type="auto", theme=chartTheme('white')) 

場合でも、データセットは実際には時系列ではありません：

> is.ts(DJI) 
[1] FALSE 

問題は、たとえば、最小のクローンの日付ダウの価値を歌う私は

> DJI[DJI$Close == min(DJI$Close),] 
       Open High  Low Close Adj.Close Volume 
1985-05-01 1257.18 1262.81 1239.07 1242.05 1242.05 10050000 

は私がしたい部分のみで、行名（1985-05-01）、を含む、行全体をもたらすような何かを行うことができます。私は実際の日付を取得を主張しかし、もし、私は列のいずれかで日付を含む第二のデータセットを両立する必要があります。

require(RCurl) 
require(foreign) 
x <- getURL("https://raw.githubusercontent.com/RInterested/datasets/gh-pages/%5EDJI.csv") 
DJI <- read.csv(text = x, sep =",") 

DJI$Date <- as.Date(DJI$Date, format = "%m/%d/%Y") # Formatting Date as.Date 
rownames(DJI) <- DJI$Date   # Assigning Date to row names 
DJI.raw <- DJI      # Second dataset for future subsetting 
DJI$Date <- NULL     # Removing the Date column 

私は

> DJI.raw$Date[DJI.raw$Close == min(DJI.raw$Close)] 
[1] "1985-05-01" 

さらに実行することができず、私はデータセットを.xtsファイルに変換すると助けになるとは思わない。

Answer 1

私はあなたが望むものはっきりしませんが、あなたはちょうど日付がほしいと思うように聞こえますか？あなたはXTSは、そうでない場合は、単純なrownames + which.minはあなたの日付になるだろう（実行可能だっただろう）オプション

time(as.xts(DJI))[which.min(DJI$Close)] # POSIXct format 
# [1] "1985-05-01 EDT" 

ではありません言及しますか？

as.Date(rownames(DJI)[which.min(DJI$Close)]) # Date format 
# [1] "1985-05-01"