#＜1＞パッケージarulesの呼び出し
library(arules)

#＜2＞データの読み込み
Receipt1000R <- read.csv("c:/Data/U/Receipt1000.csv", header = T, row.names = 1)

#＜3＞行列形式に変換
Receipt1000R <- as(Receipt1000R, "matrix")

#＜4＞データセットRecept1000Rを用いてショッピングバスケット分析を実行
Receipt1000Rules <- apriori(Receipt1000R, parameter = list(support = 0.06, confidence = 0.2, maxlen = 2))   

#＜5＞サポートの高い順にルールを表示
inspect(sort(Receipt1000Rules, by="support"))