将具有Product_Type，日期和需求的数据框转换为时间序列对象？

Question

Product_Code    Date    Order_Demand
Product_1904    09-01-2017  4000
Product_0250    09-01-2017  148
Product_0471    09-01-2017  30
Product_1408    06-01-2017  1000
Product_0689    06-01-2017  200
Product_0689    06-01-2017  300
Product_1926    06-01-2017  2
Product_1938    06-01-2017  20

我是R的新手。我想将上述数据转换为时间序列对象ts，这样行名将为Product_Code，列名将为月或季度。请帮助我！

Answer 1

我认为这应该对您有用，

library(xts)
library(lubridate)

# dummmy data
test_data <- data.frame(
  Product_Code = c("Product_1904","Product_0250","Product_0471"),
  Date = mdy(c("09-01-2017","09-02-2017","09-03-2017")),
  Order_Demand = c(4000,148,30)
)

# convert dummy data into xts time series
xts::xts(test_data, order.by = test_data$Date) -> time_series_data

str(time_series_data)

An ‘xts’ object on 2017-09-01/2017-09-03 containing:
  Data: chr [1:3, 1:3] "Product_1904" "Product_0250" "Product_0471" "2017-09-01" "2017-09-02" "2017-09-03" "4000" ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:3] "Product_Code" "Date" "Order_Demand"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
 NULL

从下一次开始，请使用dput()，然后从R终端复制粘贴结果以提供数据。