将 R 数据帧列转换为规则事务

Question

概述：

我需要将以下数据帧列(t$Tags)转换为Arules事务：

1. 斯卡拉
2. iOS，按钮，swift3，编译器错误，空
3. C#，按引用传递，不安全指针
4. spring，maven，spring-mvc，spring-security，spring-java-config
5. Android，Android-fragments，android-fragmentManager
6. Scala，Scala-collections
7. python-2.7，python-3.x，matplotlib，plot

由于此数据已经采用篮子格式，并且遵循 Arules 文档中的示例 3(https://cran.r-project.org/web/packages/arules/arules.pdf，第 90 页)，因此我通过执行以下操作来转换列：

######################################################################################################
#Option 1 - converting data.frame as described in the documentation (page 90)
######################################################################################################
## example 3: creating transactions from data.frame
a_df <- data.frame(
Tags = as.factor(c("scala",
"ios, button, swift3, compiler-errors, null",
"c#, pass-by-reference, unsafe-pointers",
"spring, maven, spring-mvc, spring-security, spring-java-config",
"android, android-fragments, android-fragmentmanager",
"scala, scala-collections",
"python-2.7, python-3.x, matplotlib, plot"))
)
## coerce
trans3 <- as(a_df, "transactions")
rules <- apriori(trans3, parameter = list(sup = 0.1, conf = 0.5, target="rules",minlen=1))
rules_output <- as(rules,"data.frame")
## Result: 0 rules
######################################################################################################
# Option 2 - reading from a CSV file, which contains exactly the same data
# above without the header and the quotes
######################################################################################################
file = "Test.csv"
trans3 = read.transactions(file = file, sep = ",", format = c("basket"))
rules <- apriori(trans3, parameter = list(sup = 0.1, conf = 0.5, target="rules",minlen=1))
rules_output <- as(rules,"data.frame")
## Result: 198 rules

---

选项 1 - 结果 =0条规则

选项 2 - 结果 =198条规则

---

问题：

在我当前的任务和环境中，我无法负担将data.frame列保存到格式化的平面文件(CSV 或任何其他文件)，然后使用read.transactions重新读取(将选项 1 转换为选项 2)。 如何将data.frame列转换为正确的格式以正确使用先验算法？

Answer 1

看看? transactions中的示例。您需要一个包含项目向量(项目标签)的列表，而不是data.frame.

items <- strsplit(as.character(a_df$Tags), ", ")
trans3 <- as(items, "transactions")
rules <- apriori(trans3, parameter = list(sup = 0.1, conf = 0.5, target="rules",minlen=1))
Apriori
Parameter specification:
confidence minval smax arem  aval originalSupport maxtime support minlen maxlen
0.5    0.1    1 none FALSE            TRUE       5     0.1      1     10
target   ext
rules FALSE
Algorithmic control:
filter tree heap memopt load sort verbose
0.1 TRUE TRUE  FALSE TRUE    2    TRUE
Absolute minimum support count: 0 
set item appearances ...[0 item(s)] done [0.00s].
set transactions ...[22 item(s), 7 transaction(s)] done [0.00s].
sorting and recoding items ... [22 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 2 3 4 5 done [0.00s].
writing ... [198 rule(s)] done [0.00s].
creating S4 object  ... done [0.00s].