在关联分析中提取特殊规则

作者: 猫南北
发布时间: 2024-08-24 01:10:14 (1月前)
转自：

2 条回复

0#
回复此人
Let us fly | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 试试这个（假设使用apriori生成规则）： </p> <pre> <code> df <- as(rules, 'data.frame') df$rules <- as.character(df$rules) lhs <- do.call(rbind, strsplit(df$rules, split='=>'))[,1] lhs.items <- strsplit(lhs, split=',') indices <- which(lapply(lhs.items, length) == 1) special.item <- '231050' special.indices <- which(grepl(special.item, lhs.items[[indices]])) selected.rules <- df[special.indices,] selected.rules rules support confidence lift 1 {231050}=>{231051} 0.06063479 1 16.49218 </code> </pre> </DIV>

编辑

登录后才能参与评论