我从 csv 文件中读取数据,数据有 3 列,一列是交易 ID,另外两列是产品和产品类别。我需要将其转换为事务才能使用arulesapriori
中的功能。当我转换为交易时它显示错误:
dat <- read.csv("spss.csv",head=TRUE,sep="," , as.is = T)
dat[,2] <- factor(dat[,2])
dat[,3] <- factor(dat[,3])
spssdat <- dat[,c(1,2,3)]
str(spssdat)
'data.frame': 108919 obs. of 3 variables:
$ Transaction_id: int 3000312 3000312 3001972 3003361 3003361 3003361 3003361 3003361 3003361 3004637 ...
$ product_catalog : Factor w/ 9 levels "AIM","BA","IM",..: 1 1 5 7 7 7 7 7 7 1 ...
$ product : Factor w/ 332 levels "ACM","ACTG/AIM",..: 7 7 159 61 61 61 61 61 61 7 ...
trans4 <- as(spssdat, "transactions")
Error in as(spssdat, "transactions") :
no method or default for coercing “data.frame” to “transactions”
如果数据只有两列,它可以通过以下方式工作:
trans4 <- as(split(spssdat[,2], spssdat[,1]), "transactions")
但是当我有 3 列时,我不知道如何转换。通常还有其他列,例如类别属性、客户属性。所以该列通常大于 2 列。需要在多个列之间找到规则。