arules::subset faire une table de contingence

bonjour,

Je dois faire une table de contingence motif x classe d'un jeu de donnée après avoir appliqué la fonction apriori() sur ce jeu de donnée

un aperçu du jeu:
Pièce jointe 327873


Pour l'instant j'ai essayé de faire à la main la table de contingence de {Alcohol=[1.0,1.5)} x {class=[1.5,2.0]} .
Donc X = {Alcohol=[1.0,1.5)} et Y = {class=[1.5,2.0]}
Mais il semblerait que mes valeurs ne soient pas les bonnes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

# total allClass <- subset(S_dataWine, subset = rhs %in% "class=[1.5,2.0]" | rhs %in% "class=[1.0,1.5)") dataFrame_allClass <- DATAFRAME(allClass) sum_allClass <- sum(dataFrame_allClass$count)   # Récupération des valeur class_1520_dataWine <- subset(S_dataWine, subset = rhs %in% "class=[1.5,2.0]") class_1015_dataWine <- subset(S_dataWine, subset = rhs %in% "class=[1.0,1.5)")   # la classe 1.5,2.0 dataFrame_class_1520_dataWine <- DATAFRAME(class_1520_dataWine) sum_classe1520 <- sum(dataFrame_class_1520_dataWine$count)   # la classe 1.0, 1.5 dataFrame_class_1015_dataWine <- DATAFRAME(class_1015_dataWine) sum_classe1015 <- sum(dataFrame_class_1015_dataWine$count) #sum_class1015 <- sum_allClass - sum_classe1520   # Alcohol alcohol1015 <- subset(S_dataWine, subset = lhs %in% "Alcohol=[1.0,1.5)") dataFrame_alcohol1015 <- DATAFRAME(alcohol1015) sum_alcohol1015 <- sum(dataFrame_alcohol1015$count)

---

Résultat

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

> sum_classe1520 [1] 6225   > sum_classe1015 [1] 244   > sum_allClass [1] 6469   > sum_alcohol1015 [1] 5463

---

Table de contingence {Alcohol=[1.0,1.5)} x {class=[1.5,2.0]}

		Y: class 1.5,2.0		!Y: !class 1.5,2.0 = class 1.0,1.5
X: {Alcohol=[1.0,1.5)}	1.1	41	1.2	sum_alcohol1015 - sum_classe1015
!X: !{Alcohol=[1.0,1.5)}	2.1	sum_classe1520 - 1.1	2.2	sum_allClass - (1.1+1.2+2.1)

j'ai fais un petit dessin aussi ^^.

Pièce jointe 327885

Bonjour,

Je ne suis pas sur de comprendre exactement ce que tu veux faire, mais un tableau de contingence ce réalise rapidement avec la fonction table ou aggregate.

Au plaisir de te lire,

Bonjour,

Quels arguments je dois mettre dans la fonction table(), j'ai essayé de faire ça:

Code:

---

1 2 3 4 5 6 7 8

> table(data.frame(dataFrame_alcohol1015[ ,1]), data.frame(dataFrame_allClass[, 2])) Error in sort.list(y) : 'x' doit être atomique pour 'sort.list' Avez-vous appelé 'sort' sur une liste ?   > table(dataFrame_alcohol1015[ ,1], dataFrame_allClass[, 2]) Error in table(dataFrame_alcohol1015[, 1], dataFrame_allClass[, 2]) : tous les arguments doivent avoir la même longueur

---

Je voudrais faire la table de contingence de {Alcohol=[1.0,1.5)} x {class=[1.5,2.0]} ^^

Bonjour,

Les données LHS et RHS sont des pseudo-listes de format inconnues.

Cela ressemblant sans être un format standard, ce qui nécessité nécessaire d'extraire les données probablement avec une REGEX.

Une fois extrait les données dans différentes colonnes il sera possible de commencer à penser au tableau de contingence.

Pour cela il faut annoter un ensemble de colonnes avec tous les états de chacune des classes avec une colonne par classe.

Ensuite vous pourrez utiliser les deux fonctions table ou aggregate à votre convenance.

Au plaisir de vous lire,

Bonjour,

L'extraction de donnée que j'ai fait avec subset n'est pas bonne ? par exemple pour extraire Alcohol=[1.0,1.5)} j'ai fait ça:

Code:

---

alcohol1015 <- subset(S_dataWine, subset = lhs %in% "Alcohol=[1.0,1.5)")

---

(S_dataWine c'est mon jeu de donnée)