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 不是一个选项（本来可以运行）

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

否则一个简单的rownames + which.min 会为您获取日期？

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