(R) 연관규칙(Apriori) 활용하기 2 - 독서시간과 사람을 만난 횟수의 연관성

 

 

 

paper1.csv

0.00MB

book_hour.csv

0.00MB

 

 

 

# 친구를 만난 횟수 데이터 불러오기
paper <- read.csv("c:/data/paper1.csv" , header = T)
 
# 결측치 매꾸기
paper[is.na(paper)] <- 0
 
# rowname을 이름으로 바꾸기
rownames(paper) <- paper[,1]
 
# x 테이블 지우기
paper <- paper[-1]
 
# 확인 : dataframe을 matrix 형식으로 바꾸기 위한 작업들이었음
paper
 
# dataframe -> matrix
paper2 <- as.matrix(paper)
paper2
 
# 책 읽은 시간에 대한 데이터 불러오기
book <- read.csv("c:/data/book_hour.csv" , header = T)
book
 
# 시각화를 위한 라이브러리
library(sna)
 
# 빈 창 띄우기
x11()
 
# 시각화
gplot(paper2 , displaylabels = T, boxed.labels = F , vertex.cex = sqrt(book[,2]) , vertex.col = "blue" , vertex.sides = 20 ,
      edge.lwd = paper2*2 , edge.col = "green" , label.pos = 3)
 

 

 

파란색 공 : 책을 읽은 정도 / 초록색 : 자주 만난 정도