R을 활용한 연관성 분석

basket.csv

0.00MB

# 1.패키지 설치 (연관성 분석 패키지 설치)
install.packages("arules")

# 2.libarry 로드
library(arules)

# 3. 로드할 파일 조회
list.files()

# 4. 파일로드
basket <- readLines("basket.csv")
basket

# 5.Transaction으로 변환하기 위해 ',' 기준으로 잘라냄
basket_trans <- strsplit(basket,",")

# 6.Transaction으로 변환
basket_trans <- as(basket_trans, "transactions")
basket_trans

# 7. 데이터 확인
inspect(basket_trans)

# 8. 연관성 규칙 도출(지지도 0.1이상, 신뢰도 0.8이상인 연관성 규칙만 도출)
basket_apriori <- apriori(basket_trans, parameter = list(support=0.1, confidence = 0.8))
inspect(basket_apriori)

# 9. 향상도가 1.2 이상인 데이터 확인
inspect(subset(basket_apriori, subset = lift > 1.2))

# 10. 조건에 삼겹살이 포함된 연관성 규칙
inspect(subset(basket_apriori, subset = lhs %in% c("삼겹살")))

# 11. 조건에 삼겹살이나 생수가 포함돤 규칙
inspect(subset(basket_apriori, subset = lhs %in% c("삼겹살","생수")))
## %in% 연산은 교집합연산

# 12. 조건에 삼겹살과 생수가 포함된 규칙
inspect(subset(basket_apriori, subset = lhs %ain% c("삼겹살","생수")))