IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

R Discussion :

arules::subset faire une table de contingence


Sujet :

R

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    606
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 606
    Par défaut 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:
    Nom : table de contingence.png
Affichages : 388
Taille : 21,5 Ko


    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 ^^.

    Nom : dessin.png
Affichages : 338
Taille : 12,8 Ko

  2. #2
    Membre émérite

    Homme Profil pro
    Cyber Security & AI
    Inscrit en
    Février 2009
    Messages
    506
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Cyber Security & AI

    Informations forums :
    Inscription : Février 2009
    Messages : 506
    Billets dans le blog
    2
    Par défaut
    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,

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    606
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 606
    Par défaut
    Bonjour,

    Quels arguments je dois mettre dans la fonction table(), j'ai essayé de faire ça:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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]} ^^

  4. #4
    Membre émérite

    Homme Profil pro
    Cyber Security & AI
    Inscrit en
    Février 2009
    Messages
    506
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Cyber Security & AI

    Informations forums :
    Inscription : Février 2009
    Messages : 506
    Billets dans le blog
    2
    Par défaut
    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,

  5. #5
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    606
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 606
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    alcohol1015 <- subset(S_dataWine, subset = lhs %in% "Alcohol=[1.0,1.5)")
    (S_dataWine c'est mon jeu de donnée)

Discussions similaires

  1. Faire une table partitionnée
    Par big1 dans le forum Administration
    Réponses: 3
    Dernier message: 22/05/2008, 10h25
  2. Faire une table avec plusieurs
    Par FCL31 dans le forum Modélisation
    Réponses: 1
    Dernier message: 22/01/2008, 13h44
  3. Comment faire une table-arbre comme celle de la view "Problèmes" ?
    Par leonelag dans le forum Eclipse Platform
    Réponses: 6
    Dernier message: 21/08/2007, 12h56
  4. faire une table rayée
    Par 18Marie dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 30/06/2006, 15h12
  5. Trigger pour faire une table "mirroir"
    Par lgomez dans le forum Oracle
    Réponses: 8
    Dernier message: 26/10/2005, 13h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo