library(RODBC);#加载包
conn<-odbcConnect('DNSName',uid='UserName',pwd='Password'); #创建数据库链接(需要先配置DNS，具体百度一下，很简单)
result<-sqlQuery(conn,'select * from ECommData_CartProduct_ConvertVSID_Final');#从数据库提取已经处理好的表
result<-as.data.frame(result);
result<-as.matrix(result); #将数据转化为矩阵
library(lattice);#加载包
library(Matrix);#加载包
library(arules);#加载包
frequentsets=eclat(result,parameter=list(support=0.05,maxlen=10));#求频繁项集
inspect(frequentsets[1:10]);
rules=apriori(result,parameter=list(support=0.01,confidence=0.01));#apriori算法求关联规则
summary(rules);
x=subset(rules,lift>=1.2);#将提升度大于等于1.2的放到变量X里
inspect(sort(x,by="support"));#展示结果

个人喜欢在数据库里先处理原始数据，再把处理完的结果放到R里，毕竟数据库处理较大数据量的速度比R快。