Discussion :

[circe]

Bonjour!

J'aurais une question concernant la manipulation des entrées d'un tableau (data.frame). Dans mon tableau de données, les sept premières colonnes contiennent des entrées qui sont des chaînes de caractères (et qui sont identiques à l'intérieur de chaque colonne) et les cent suivantes contiennent des nombres. Ca donne à peu près ça:


Entree1 Entree2 ... Entree7 Entree 8 Entree 9 ... Entree107

Blabla1 Blabla2 ... Blabla7 1 0 2 ... 6
Blabla1 Blabla2 ... Blabla7 2 6 4 ... 7
Blabla1 Blabla2 ... Blabla7 3 9 3 ... 2
...


J'aimerais créer un nouveau tableau d'une ligne avec les noms Blabla1 Blabla2 ... Blabla7 figurant dans les premières colonnes puis ayant la somme sur les lignes dans les cent colonnes suivantes. Dans l'exemple ci-dessus, cela donnerait:


Entree1 Entree2 ... Entree7 Entree 8 Entree 9 ... Entree107

Blabla1 Blabla2 ... Blabla7 6 15 9 ... 15

Comment faire? Y a-t-il un moyen d'utiliser la fonction apply avec la fonction sum? Le problème c'est que les entrées ne sont pas toutes des nombres...

Merci d'avance!!

[pitipoisson]

Bonjour,

Étrange tableau ! (je veux dire les sept premières colonnes, avec toutes les lignes identiques).

Enfin, ce n'est pas le sujet !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cbind(tableau[1, 1:7], lapply(tableau[ ,8:107], sum, na.rm=TRUE))

une data.frame est en fait un cas particulier de liste (une liste dont tous les éléments ont la même longueur). On peut donc utiliser lapply (ou sapply) pour faire une opération sur chaque colonne.
L'option na.rm=TRUE, c'est pour ignorer les éventuelles valeurs manquantes.
cbind, c'est pour coller les 7 premières colonnes (une seule ligne) à celles calculées avec lapply.

sapply retourne un vecteur lorsque c'est possible : la façon de l'utiliser ici est donc (encore !) moins intuitive :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cbind(tableau[1, 1:7], t(sapply(tableau[ ,8:107], sum, na.rm=TRUE)))

(transposition nécessaire). C'est pourquoi, dans ce cas précis, je ne l'utiliserais pas

[circe]

Merci pour la réponse!!!

J'aurais une autre question: comment faire si je veux créer un tableau-ligne en gardant Blabla1 et Blabla4 dans les deux premières colonnes, puis le tableau formé de la somme.

Mon code était, avec l'astuce d'avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne<-cbind(table[1,1:7], lapply(table[ ,8:107], sum, na.rm=TRUE))

Et je voudrais avoir quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne<-cbind(table[1,1], table[1,4], lapply(table[ ,8:107],sum,na.rm=TRUE))

Mais cette dernière commande me donne quelque chose de complètement différent...

Merci d'avance !

[pitipoisson]

Et je voudrais avoir quelque chose comme:

ligne<-cbind(table[1,1], table[1,4], lapply(table[ ,8:107],sum,na.rm=TRUE))

Mais cette dernière commande me donne quelque chose de complètement différent...

Essaye plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne <- cbind(table[1,  c(1,  4)], lapply(table[ , 8:107], sum, na.rm=TRUE))

ou bien peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne <- cbind(table[1, 1, drop=FALSE], table[1, 4, drop=FALSE], lapply(table[ , 8:107], sum, na.rm=TRUE))

Par défaut, R essaye de transformer le résultat d'une extraction en un objet de la classe la plus simple possible.
Par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
table[1 , 1]
## ou bien même
table[ , 1]

est un vecteur. L'option drop=FALSE permet de conserver la classe data.frame.

PS. Utilise les balises code (bouton #) lorsque tu donne des exemples... et aère un peut le code avec des espaces, il sera plus facile à lire

[circe]

Merci beaucoup, ça marche!!! :-)

J'ai une autre question: j'ai concaténé certaines lignes d'un tableau initial data.dat et dans mon nouveau "sous"-tableau, lorsque je l'affiche dans le terminal, j'ai toujours les numéros des lignes du tableau initial qui s'affichent :

347
567
234
...

Comment faire pour qu'une numérotation "normale" de lignes s'affiche ? C'est-à-dire :

1
2
3
...

Merci d'avance!!

[pitipoisson]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

row.names(tableau) <- 1:nrow(tableau)

ou bien peut-être même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

row.names(tableau) <- NULL

Edit: ma remarque sur les balises code reste valable. Même sur des exemples simples (y compris données), ça aide vraiment à faire ressortir la structure de la question.

[circe]

Merci bien, ça marche!!!!! :-)

J'aurais une autre question: existe-t-il une fonction qui permette de demander si un élément fait partie d'une liste donnée?

Merci d'avance!

[pitipoisson]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

is.element(vecteur_elements, vecteur_ensemble)

retourne un vecteur booléen de la même longeur que vecteur_elements, avec pour chaque élément de celui-ci

• TRUE s'il est présent dans vecteur_ensemble
• FALSE sinon

PS. Lorsqu'une nouvelle question n'a plus grand chose à voir avec l'original, il vaut mieux créer une nouvelle discussion avec un titre en rapport. Ainsi, d'autres utilisateurs qui font une recherche sur le même sujet auront plus de chance de tomber sur la solution.

[circe]

Merci beaucoup!!! :-)