我想将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
转换为动物园对象的更好方法是什么?如何正确地做到这一点?
感谢您的回复
答案 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)
}