Структура, возвращаемая apriori
, содержит компоненты (lhs, rhs) правил в качестве факторов. Вы можете преобразовать их в строки и удалить фигурные скобки, используя gsub
. Поскольку вы не предоставляете никаких данных, я проиллюстрирую это встроенными данными Adult
.
library(arules)
data("Adult")
rules <- apriori(Adult,
parameter = list(supp = 0.7, conf = 0.9, target = "rules"))
LHS = gsub("[{}]", "", as.character(inspect(rules@lhs)$items))
RHS = gsub("[{}]", "", as.character(inspect(rules@rhs)$items))
LHS
[1] "" ""
[3] "race=White" "race=White"
[5] "race=White" "native-country=UnitedStates"
[7] "native-country=United-States" "capital-gain=None"
[9] "capital-loss=None" "race=White,native-country=United-States"
[11] "race=White,capital-gain=None" "race=White,native-country=United-States"
[13] "race=White,capital-loss=None" "race=White,capital-gain=None"
[15] "race=White,capital-loss=None" "capital-gain=None,native-country=United-States"
RHS
[1] "capital-gain=None" "capital-loss=None" "native-country=United-States"
[4] "capital-gain=None" "capital-loss=None" "capital-gain=None"
[7] "capital-loss=None" "capital-loss=None" "capital-gain=None"
[10] "capital-gain=None" "native-country=United-States" "capital-loss=None"
[13] "native-country=United-States" "capital-loss=None" "capital-gain=None"
[16] "capital-loss=None" "capital-gain=None"