별도의 데이터 프레임에서 루프를 작성하여 .CSV를 R

Question

다른 입력에 대해 연관 규칙을 실행하고 출력을 개별 csv 파일로 인쇄하려고합니다. 별도의 데이터 프레임에서 모델 입력을 찾아보고 마지막 값에 도달 할 때까지 작업을 반복하고 싶습니다. 여기 Dataframe CTVU

MMGID_5 EMAIL 
2341  1@email.x 
50   1@email.x 
311  1@email.x 
2341  2@email.x 
2387  2@email.x 
57   2@email.x 
2329  2@email.x 
2026  3@email.x 
650  3@email.x 
2369  3@email.x 

대신 수동으로 appearance = list(default="rhs",lhs="2341")에서 2341을 선언하고 파일의 이름 새로운 새로운 변수가 나는 것 선언 될 때마다 변경에 모델

# Loading packages 
library(arules) 
library(arulesViz) 

# Reading in data 
CTVU <- read.csv("CTVU.csv", header = TRUE) 
CTVU <- unique(CTVU[ , c(2,5) ]) 
CTVU <- as(split(CTVU[,"MMG5_ID"], CTVU[,"EMAIL"]), "transactions") 

# model 
rules<-sort(rules, by="confidence", decreasing=TRUE) 
rules <- apriori(CTVU, parameter = list(supp = 0.001, conf = 0.8,maxlen=3)) 

입니다 루프를 사용하여이 프로세스를 x 번 실행합니다.

MMGID 
2341  
50   
311  

이게 가능 :

rules<-apriori(data=CTVU, parameter=list(supp=0.001,conf = 0.01,minlen=2), 
appearance = list(default="rhs",lhs="2341"), 
control = list(verbose=F)) 
rules<-sort(rules, decreasing=TRUE,by="confidence") 
inspect(rules[1:5]) 

# create rules into data.frame and write as CSV file 
CTVR <- as(rules, "data.frame") 
write.csv(CTVR, file = "2341_Basket.csv", row.names = FALSE) 

Dataframe MMGID는에서 루프까지를 볼 수 있습니다?

Answer 1

루프의 값 벡터를 전달하기 만하면 벡터는 반복 할 값을 보유하는 MMGID 데이터 프레임 열이됩니다.

다음은 대응하는 CSV를 출력하고 기본 규칙 dfs의 큰 목록을 생성하는 lapply() 접근 방식입니다. 289

# ITERATE THROUGH MMGID COLUMN VALUES 
rules_dflist <- lapply(MMGID$Col, function(i) { 

    rules<-apriori(data=CTVU, parameter=list(supp=0.001,conf = 0.01,minlen=2), 
    appearance = list(default="rhs",lhs=as.character(i)), 
    control = list(verbose=F)) 
    rules<-sort(rules, decreasing=TRUE,by="confidence") 
    inspect(rules[1:5]) 

    # create rules into data.frame and write as CSV file 
    CTVR <- as(rules, "data.frame") 
    write.csv(CTVR, file = paste0(i,"_Basket.csv"), row.names = FALSE) 
    return(CTVR) 

}) 

# NAME EACH ELEMENT TO CORRESPONDING MMGID COL VALUE 
rules_dflist <- setNames(rules_dflist, MMGID$Col)