Récuperer les colonnes qui satisfont la condition

Version imprimable

14/08/2012, 14h44
niafron71

Récuperer les colonnes qui satisfont la condition
Bonjour,

J'aimerais pouvoir récupérer le numéro des colonnes qui satisfont une condition. Je vous présente un exemple simple.
Code:

1 2 3 vecteur=c(1:10) vecteur<5
Cela nous renvois un vecteur c(False, False, False, False, False, True, True, True, True, True).

Ce que j'amerais c'est récuperer le vecteur suivant:
c(5,6,7,8,9,10)

Je tiens à préciser que les colonnes ne se suivent pas forcément...

Merci pour votre aide ou vos idées.

Voici mon code à l'heure actuel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
vecteur=c(1:10)
vecteur<5
c=0
for (i in 1:10)
{
if(vecteur[i]<5) {c=c+1} else {c=c}
 
}
vecteur2=c(1:c)
compteur=0
for (i in 1:10)
{
if (vecteur[i]<5) {compteur=compteur+1} else {compteur=compteur}
if (vecteur[i]<5) {vecteur2[compteur]=i} else {}
}
vecteur2

Bonjour,
Citation:
Envoyé par niafron71
Voici mon code à l'heure actuel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 vecteur=c(1:10) vecteur<5 c=0 for (i in 1:10) { if(vecteur[i]<5) {c=c+1} else {c=c} } vecteur2=c(1:c) compteur=0 for (i in 1:10) { if (vecteur[i]<5) {compteur=compteur+1} else {compteur=compteur} if (vecteur[i]<5) {vecteur2[compteur]=i} else {} } vecteur2
C'est un peu compliqué votre code. Il y a la fonction which pour ça :

Code:

which(vecteur < 5)

HTH

Vincent

14/08/2012, 15h39
niafron71

Merci pour cette remarque, mais je ne connais pas cette "fonction" which. Cependant mon problème n'est pas l'optimisation du code mais de trouver un code qui me donnera le résultat. Si tu as d'autres suggestions je suis preneur.

Re,

Le code que j'ai fourni donne le résultat...
Code:

1 2 3 4 5 6 7 vecteur <- 1:10 which(vecteur < 5) [1] 1 2 3 4 vecteur2 <- 10:1 which(vecteur2 < 5) [1] 7 8 9 10
HTH

Vincent

14/08/2012, 16h05
niafron71

Je crois que vous n'avez pas compris mon problème je ne veux pas récuperer les 4 ou 5 premières colonnes mais celle qui vérifie la condition.

Re,

Code:

1
2
3
vecteur <- c(1, 10, 2, 10, 3, 10, 4, 5, 10, -12, -14, 0, 10)
which(vecteur > 5)
[1]  2  4  6  9 13

HTH

Vincent

16/08/2012, 10h11
niafron71

Merci beaucoup pour votre aide! Problème résolu :)