R语言与机器学习关联分析.docxVIP

用R语言进行关联分析? ? 关联是两个或多个变量取值之间存在的一类重要的可被发现的某种规律性。关联分析目的是寻找给定数据记录集中数据项之间隐藏的关联关系，描述数据之间的密切度。?几个基本概念1.??????项集这是一个集合的概念，在一篮子商品中的一件消费品即为一项（Item），则若干项的集合为项集，如{啤酒，尿布}构成一个二元项集。2.??????关联规则一般记为的形式，X为先决条件，Y为相应的关联结果，用于表示数据内隐含的关联性。如：，表示购买了尿布的消费者往往也会购买啤酒。关联性强度如何，由三个概念——支持度、置信度、提升度来控制和评价。?例：有10000个消费者购买了商品，其中购买尿布1000个，购买啤酒2000个，购买面包500个，同时购买尿布和面包800个，同时购买尿布和面包100个。3.??????支持度（Support）支持度是指在所有项集中{X, Y}出现的可能性，即项集中同时含有X和Y的概率：???????? 该指标作为建立强关联规则的第一个门槛，衡量了所考察关联规则在“量”上的多少。通过设定最小阈值（minsup），剔除“出镜率”较低的无意义规则，保留出现较为频繁的项集所隐含的规则。???????? 设定最小阈值为5%，由于{尿布，啤酒}的支持度为800/10000=8%，满足基本输了要求，成为频繁项集，保留规则；而{尿布，面包}的支持度为100/10000=1%，被剔除。?4.??????置信度（Confidence）置信度表示在先决条件X发生的条件下，关联结果Y发生的概率：???????? 这是生成强关联规则的第二个门槛，衡量了所考察的关联规则在“质”上的可靠性。相似的，我们需要对置信度设定最小阈值（mincon）来实现进一步筛选。???????? 具体的，当设定置信度的最小阈值为70%时，置信度为800/1000=80%，而的置信度为800/2000=40%，被剔除。?5.??????提升度（lift）提升度表示在含有X的条件下同时含有Y的可能性与没有X这个条件下项集中含有Y的可能性之比：???????? 该指标与置信度同样衡量规则的可靠性，可以看作是置信度的一种互补指标。?R中Apriori算法算法步骤：1.??????选出满足支持度最小阈值的所有项集，即频繁项集；2.??????从频繁项集中找出满足最小置信度的所有规则。? library(arules)?? #加载arules包 click_detail =read.transactions(click_detail.txt,format=basket,sep=,,cols=c(1))? #读取txt文档（文档编码为ANSI） rules - apriori(click_detail, parameter =list(supp=0.01,conf=0.5,target=rules))? #调用apriori算法 rulesset of419 rules inspect(rules[1:10])??#查看前十条规则?解释1)????????library(arules)：加载程序包arules，当然如果你前面没有下载过这个包，就要先install.packages(arules)?2)????????click_detail =read.transactions(click_detail.txt,format=basket,sep=,,cols=c(1))：读入数据?read.transactions(file, format =c(basket, single), sep = NULL,???????????cols = NULL, rm.duplicates =FALSE, encoding = unknown)?file:文件名，对应click_detail中的“click_detail.txt”format:文件格式，可以有两种，分别为“basket”,“single”，click_detail.txt中用的是basket。basket: basket就是篮子，一个顾客买的东西都放到同一个篮子，所有顾客的transactions就是一个个篮子的组合结果。如下形式，每条交易都是独立的。文件形式：item1,item2item1item2,item3读入后：?items?1 {item1,??item2}2 {item1}3 {item2,??item3}single: single的意思，顾名思义，就是单独的交易，简单说，交易记录为：顾客1买了产品1，顾客1买了产品2，顾客2买了产品3……(产品1，产品2，产品3中可以是单个产品，也可以是多个产品)，如下形式：trans1 item1trans2 item1trans2 item2读入后：?i