将字符串格式的规则转换为 R 中的规则

Question

我有一些字符串格式的 Apriori 规则，例如： (A,B) => (C) ,支持度=0.1 ,置信度=0.0

是否可以将它们转换成与 arulesViz 库中的 apriori 函数返回的格式相同的格式，即 >rules 对象？

格式有这个方面：

   lhs                rhs         support     confidence

[1] {A B} => {C} 0.1 0.0

PS：我不能直接使用 R 中的先验函数，因为我使用的是它的修改版本。

谢谢理查德

Answer 1

如果它们的格式始终相似，那么下面的方法应该可行。

a <- rep('(A,B) => (C) ,Support=0.1 ,Confidence=0.0',6)

b  <- matrix(unlist(strsplit(a,' ,')),ncol=3,byrow=TRUE)

b[,1] <- gsub('[(]','{',b[,1])
b[,1] <- gsub('[)]','}',b[,1])
b[,1] <- gsub(',',' ',b[,1])
b[,2:3] <- gsub('^.*=','',b[,2:3])
paste(b[,1],b[,2],b[,3])

除了拆分字符串并处理子字符串之外，我想不出任何简洁的方法。

将字符串格式的规则转换为 R 中的规则

Convert rule in string format to arules in R

string

r

type-conversion

arules