在将 data.frame 转换为 R 中的时间序列对象时遇到困难？

Question

我是R语言的新手。我有文本文件，由选项卡分隔，每天都有销售数据。格式将类似于 product-id、day0、day1、day2、day3 等。下面给出的输入文件部分

productid   0   1   2   3   4   5   6
1           53  40  37  45  69  105 62
4           0   0   2   4   0   8   0
5           57  133 60  126 90  87  107
6           108 130 143 92  88  101 66
10          0   0   2   0   4   0   36
11          17  22  16  15  45  32  36

我使用下面的代码读取文件

pdInfo <- read.csv("products.txt",header = TRUE, sep="\t")

这允许读取整个文件并且变量 x 是一个数据框。我想将 data.frame x 更改为时间序列对象，以便进一步 processing.On 固定测试，Dickey–Fuller 测试 (ADF) 它显示错误。我试过下面的代码

x <- ts(data.matrix(pdInfo),frequency = 1)
adf <- adf.test(x)

  error: Error in adf.test(x) : x is not a vector or univariate time series

提前感谢您的建议

Answer 1

在 R 中，时间序列通常采用 "one row per date" 形式，而您的数据采用 "one column per date" 形式。在转换为 ts object.

之前，您可能需要转置数据

首先转置它：

y= t(pdInfo)

然后将顶行（即产品 ID）设为行标题

colnames(y) = y[1,]
y= y[-1,] # to drop the first row

这应该有效：

x = ts(y, frequency = 1)

Answer 2

library(purrr)
library(dplyr)
library(tidyr)
library(tseries)

# create the data

df <- structure(list(productid = c(1L, 4L, 5L, 6L, 10L, 11L), 
                     X0 = c(53L, 0L, 57L, 108L, 0L, 17L), 
                     X1 = c(40L, 0L, 133L, 130L, 0L, 22L), 
                     X2 = c(37L, 2L, 60L, 143L, 2L, 16L), 
                     X3 = c(45L, 4L, 126L, 92L, 0L, 15L), 
                     X4 = c(69L, 0L, 90L, 88L, 4L, 45L), 
                     X5 = c(105L, 8L, 87L, 101L, 0L, 32L), 
                     X6 = c(62L, 0L, 107L, 66L, 36L, 36L)), 
                .Names = c("productid", "0", "1", "2", "3", "4", "5", "6"), 
                class = "data.frame", row.names = c(NA, -6L))

# apply adf.test to each productid and return p.value

adfTest <- df %>% gather(key = day, value = sales, -productid) %>%
  arrange(productid, day) %>%
  group_by(productid) %>%
  nest() %>%
  mutate(adf = data %>% map(., ~adf.test(as.ts(.$sales)))
  ,adf.p.value = adf %>% map_dbl(., "p.value")) %>%
  select(productid, adf.p.value)

在将 data.frame 转换为 R 中的时间序列对象时遇到困难？

Facing difficulty in convert a data.frame to time series object in R?

r

time-series

read.csv