Contents

1. 연관규칙 2

가. 실습 1

library(arules)
library(arulesViz)

food <- read.csv("food.csv", header = TRUE, sep =",")

str(food)
food$egg <- as.factor(food$egg)
food$ramen <- as.factor(food$ramen)
food$tuna <- as.factor(food$tuna)
food$coldrice <- as.factor(food$coldrice)
food$cola <- as.factor(food$cola)
food$onion <- as.factor(food$onion)

rules <- apriori(food, parameter = list(supp=0.5, conf = 0.5))

inspect(rules)

plot(rules, method = 'graph')Code language: PHP (php)

(1) 질문?

왜 힘들게 하나하나 수동으로 factor로 바꿔주어야 하는가?

stringsAsFactors = TRUE로 한 번에 바꿔도 되지 않는가?

food <- read.csv("food.csv", header = TRUE, sep =",", stringsAsFactors = TRUE)
# 데이터들이 숫자여서 string이 아니라 Factor로 변환되지 않음Code language: PHP (php)

inspect(rules)
plot(rules, method = 'graph')Code language: JavaScript (javascript)

나. 실습 2

tran <- read.transactions('wish.txt', format = "basket", sep = ",")
rule <- apriori(tran, parameter = list(supp = 0.1, conf = 0.1))
inspect(rule)Code language: PHP (php)