将data.frame转换为zoo

时间:2014-01-01 20:41:09

标签: r statistics zoo

我想将data.frame转换为动物园对象。我的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转换为动物园对象的更好方法是什么?如何正确地做到这一点?

感谢您的回复

2 个答案:

答案 0 :(得分:5)

关于使用read.zoo的尝试,必须指定第一列的格式,因为它与默认值不同。请参阅?read.zoo以正确使用该功能。还有一个小插图vignette("zoo-read")完全专注于read.zoo示例。

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。

答案 1 :(得分:1)

快速了解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)
}