向arules事务对象添加扩展事务信息

Question

我有一个数据框架，我试图强行进入一个事务对象，以便使用arules包进行分析。以下是我的问题的一个可重复的例子：

df <- data.frame(
  case_number = c("1001", "1001", "1002", "1002", "1003"),
  date = as.Date(c("2016-04-19", "2016-04-21", "2016-05-21", "2016-05-25", 
    "2016-06-14")),
  happy = factor(c("Yes", "No", "Yes", "No", "No")),
  food = ordered(
    c(1, 2, 1, 3, 1),
    levels = c(1, 2, 3),
    labels = c("A lot", "Some", "None")
  ),
  stringsAsFactors = FALSE
)

df

  case_number       date happy  food
1        1001 2016-04-19   Yes A lot
2        1001 2016-04-21    No  Some
3        1002 2016-05-21   Yes A lot
4        1002 2016-05-25    No  None
5        1003 2016-06-14    No A lot

如果我放弃了case_numer和约会，我就不会强迫你了。但是，在arules简介示例1中，Epub事务对象的摘要包括以下内容：

includes extended transaction information - examples:
      transactionID           TimeStamp
10792  session_4795 2003-01-01 19:59:00
10793  session_4797 2003-01-02 06:46:01
10794  session_479a 2003-01-02 09:50:38

您可以使用以下代码自己重新创建该代码：

library(arules)
data(Epub)
summary(Epub)

我的问题是，如何像上面那样添加case_number和date作为扩展事务信息。我已经查看了arules文档和这个所以贴。

Answer 1

可以使用transactionInfo方法访问事务信息(请参阅? transactions)。它包含一个data.frame，每个事务有一行。