R：如何从时间序列中提取日期

Question

如何从时间序列中提取日期？这是一个时间序列：

x = seq (1, 768)
myts <- ts(x, start=1982, frequency=24)

最初我需要为 rts 函数创建一个包含 date/time 数据的向量，观察从 1982 年开始，每月进行 2 次测量，一直持续到 2013 年。

Answer 1

尝试：

time(myts)

或者也许：

library(zoo)
as.yearmon(time(myts))

Answer 2

如果您需要 POSIX* 个对象——这在处理半月数据时可能不合适，但在处理更高的时间分辨率时可能会派上用场——您也可以使用 date_decimal 来自 lubridate.

library(lubridate)
mts <- as.numeric(time(myts))

## 'POSIXct, POSIXt' object
tms <- date_decimal(mts)

Answer 3

您可以使用以下功能。输入是 r 中的一个时间序列。并且输出是一个列表，包含从开始时间到结束时间的所有时间数组。

借助列表，您可以使用window()函数非常方便地截断时间序列。

getTStime <- function(ats){
  start <- start(ats)
  end <- end(ats)
  time <- list()
  time[[1]] <- start
  m <- 2
  while(!(identical(start, end))){
    start[2] <- start[2] + 1
    if (start[2]==13){
      start[1] <- start[1] + 1
      start[2] <- 1
    }
    time[[m]] <- start
    m <- m + 1
  }
  return(time)
}

R：如何从时间序列中提取日期

R: How to extract dates from a time series

r

date

raster

time-series