Question

library(tseries)
prices <- get.hist.quote(instrument='AAPL', start='2015-12-01')
prices[1]

               Open   High    Low  Close
    2015-12-01 118.75 118.81 116.86 117.34

如何为每一行添加单个值的列？

                 Open   High    Low  Close  Symbol
    2015-12-01 118.75 118.81 116.86 117.34  "AAPL"
    2015-12-02 117.34 118.11 116.08 116.28  "AAPL"

如何添加作为函数结果的列？例如，Sys.time()？

                 Open   High    Low  Close                  Updated
    2015-12-01 118.75 118.81 116.86 117.34 "2016-01-11 09:44:15 PST"

我看了Adding column to zoo object，但不明白答案。

Answer 1

您可以将索引修改为时间戳。一个例子：

index(prices) <- rep(Sys.time(), nrow(prices))

class(index(prices))
[1] "POSIXct" "POSIXt"

以前，它是：

class(index(prices))
[1] "Date"

如何将列添加到zoo对象？

1 个答案: