매칭 협회 규칙은

Question

나는 다음과 같은 코드 및 수신 해당 협회 규칙을 사용

:

library("arules") 
data("Adult") 
    rules <- apriori(Adult,parameter = list(supp = 0.5, conf = 0.9, target = "rules")) 
    labels(rules) 

50 규칙이 있습니다.

Adult3<-as.data.frame(as(Adult,"matrix")) 

을 그리고 Adult3$RUL_NUM에 새 열을 추가 : 나는 소스 데이터에 다시 가고 싶습니다. 이 열은 해당 레코드가 준수하는 관련 규칙 (이 경우 1에서 50까지)의 값을 (각 레코드에 대해) 포함합니다. 레코드 당 둘 이상의 규칙이있는 경우 레코드가 준수하는 마지막 규칙을 추가하고 싶습니다.

Answer 1

아마도 is.superset 함수를 살펴보고 싶을 것입니다. 예를 들어

is.superset(Adult, lhs(rules)) 

당신 "중요한"룰이다 각 트랜잭션 나타내는 논리 매트릭스를 줄 것이다 (즉, LHS 모든 항목이 존재하는 경우).

편집 : 당신이 아비가 아래에 제시 한 코드를 사용 후 모든 규칙과 일치 할 경우 : (당신이 사용할 수있는 일치하는 마지막 규칙의 ID (번호)를 얻으려면

is.superset(Adult, lhs(rules)) 

을 더 많거나 상위 집합 매트릭스에 이하) 직선 앞으로 R 코드 :

w <- sapply(apply(is.superset(Adult, rules), MARGIN = 1, which), tail, n = 1) 

이 코드는 각 행의 모든 ​​사람들의 열 인덱스를 발견하고 마지막 하나를 반환합니다.