将 data.frame 转换为 zoo

Question

我想将一个 data.frame 转换成一个 zoo 对象。我的 df 看起来像这样：

> (str(StockPriceReturns))
'data.frame':   3036 obs. of  2 variables:
 $ Date        : Factor w/ 3036 levels "01.01.2002","01.01.2003",..: 1 102 202 301 600 701 802 902 1001 1300 ...
 $ TotalReturns: num  183 183 186 191 191 ...
NULL

我的尝试：

直接方法：

这里我遇到了一个错误...

> (z1 <- read.zoo(StockPriceReturns, drop=FALSE))
Error in read.zoo(StockPriceReturns, drop = FALSE) : 
  index has 3036 bad entries at data rows: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 ...

函数：

我也遇到了一个错误 ;(

    dfToZoo <- function(df) {
        require(zoo)
        date <- as.Date(df[, 1], format = '%d.%m.%y')
        with(df, zoo(date,freq))
    } 

> (z1 <- dfToZoo(StockPriceReturns))
Error in MATCH(order.by, order.by) : object 'freq' not found

我的问题是如何更好地将一个data.frame转换为zoo对象？如何正确地执行此操作？

非常感谢您的回复。

- user2051347

---

“StockPriceReturns” 没有名为 “freq” 的列。 另外，您的 “zoo” 调用是反向的 - 应该是 zoo(TotalReturns, date)。 - GSee

Answer 1

关于使用read.zoo的尝试，必须指定第一列的格式，因为它与默认值不同。请参考?read.zoo以了解该函数的正确用法。此外，还有一个完全专注于read.zoo示例的小册子vignette("zoo-read")。

DF <- data.frame(Date = c("01.01.2002","01.01.2003"), TotalReturns = c(183, 183))
library(zoo)
read.zoo(DF, format = "%d.%m.%Y")
## 2002-01-01 2003-01-01 
##        183        183 

提供的dfToZoo函数在使用zoo时存在错误（请参阅?zoo以了解参数），format参数的值应为"%d.%m.%Y"，Y需大写。

- G. Grothendieck

---

谢谢您的回答！为什么"%d.%m.%Y"格式化字符串中有一个大写的"...%Y"？ - user2051347

Answer 2

dfTozoo函数简介。如果与默认格式不同，它可以让您灵活地指定日期格式：

dfTozoo = function(tsdataframe, dateformat="%m/%d/%Y"){

  library(zoo)

  framedates = as.Date(tsdataframe[,1], format=dateformat)
  n=ncol(tsdataframe)
  zoodata = zoo(tsdataframe[,2:n], order.by=framedates)

  return(zoodata)
}

- SwissArmy1984