-6

我需要下表中的数据，以便通过 ID 和 ProductCode 进行预测。我对如何编码 R 感到困惑，所以我可以通过 ID 和 ProductCode 进行预测。我正在寻找动物园来帮助我做到这一点，但我很难过。

DATE    ID  ProdCode    Rev
08/01/2012   1-100FDK    B51    0.22
09/01/2012   1-100FDK    B51    10.17
10/01/2012   1-100FDK    B51    39.73
11/01/2012   1-100FDK    B51    78.77
12/01/2012   1-100FDK    B51    167.66
08/01/2012   1-100FDK    B53    387.82
09/01/2012   1-100FDK    B53    321.58
10/01/2012   1-100FDK    B53    261.9
11/01/2012   1-100FDK    B53    259.84
12/01/2012   1-100FDK    B53    269.84
08/01/2012   1-200FFK    A54    194.42
09/01/2012   1-200FFK    A54    225.1
10/01/2012   1-200FFK    A54    269.42
11/01/2012   1-200FFK    A54    321.14
12/01/2012   1-200FFK    A54    429.11

谢谢，

杰夫

4

1 回答 1

2

我将首先可视化我的数据以获得一些直觉，检测模式并选择最佳模型。R 在这方面真的很棒。我在这里使用ggplot2，但您可以使用lattice. 例如 ：

dat$DATE <- as.Date(dat$DATE,format='%d/%m/%Y')
library(ggplot2)
ggplot(dat,aes(x=DATE,y=Rev,group=ProdCode,color=ProdCode)) + 
  geom_line() + 
  facet_grid(~ID) +
  geom_smooth(method='lm')

在此处输入图像描述

这里的数据是：

dat <- read.table(text='DATE    ID  ProdCode    Rev
08/01/2012   1-100FDK    B51    0.22
09/01/2012   1-100FDK    B51    10.17
10/01/2012   1-100FDK    B51    39.73
11/01/2012   1-100FDK    B51    78.77
12/01/2012   1-100FDK    B51    167.66
08/01/2012   1-100FDK    B53    387.82
09/01/2012   1-100FDK    B53    321.58
10/01/2012   1-100FDK    B53    261.9
11/01/2012   1-100FDK    B53    259.84
12/01/2012   1-100FDK    B53    269.84
08/01/2012   1-200FFK    A54    194.42
09/01/2012   1-200FFK    A54    225.1
10/01/2012   1-200FFK    A54    269.42
11/01/2012   1-200FFK    A54    321.14
12/01/2012   1-200FFK    A54    429.11',
         header=TRUE)
于 2013-06-25T20:23:44.190 回答