我有一个.csv文件,如下所示:
日期 | ||||
---|---|---|---|---|
2005年1月1日 | 6:30 | 6 | ||
2005年1月1日 | ||||
2005年1月23日 | 21:45 | 0 | ||
2005年1月23日 |
我们假设您从结尾的注释中可重复显示的tp开始。24*4=96个点的完整循环应在内部用一个时间单位表示。chron类会这样做,所以将其作为带有chron时间索引的动物园系列z
读取,然后将其转换为给出ts_ser
的ts,或者可能将其作为动物园系列,这取决于您接下来要做什么。
library(zoo)
library(chron)
to_chron <- function(date, time) as.chron(paste(date, time), "%d-%b-%y %H:%M")
z <- read.zoo(tp, index = 1:2, FUN = to_chron, frequency = 4 * 24)
ts_ser <- as.ts(z)
备注
tp <- structure(list(Date = c("01-Jan-05", "01-Jan-05"), Time = c("6:30",
"6:45"), Demand = c(6L, 3L)), row.names = 1:2, class = "data.frame")