extraction de valeurs dans un data-frame

[Stephan Defoy]

Bonjour,

J'ai un data-frame comme par exemple :
heure x
1 00 6728
2 01 10777
3 02 10801
4 03 8926
5 04 10463
6 05 10442

La première colonne représente les heures, je voulais savoir s'il existait un moyen pour récupérer toutes les valeurs correspondants aux heures paires et en faire la somme.
Je n'arrive déjà pas à récupérer une valeur pour une heure donnée, j'ai essayé les fonction apply, subset, which, sans succès ....

Merci d'avance pour votre aide,

Stéphan,

[Pierre-Yves Berrard]

Bonjour,

Code : Tout sélectionner

sum(donnees$x[as.integer(donnees$heure) %% 2 == 0])

J'ai supposé que l'heure était sous forme caractère (d'où l'utilisation de as.integer).

[François Bonnot]

J'ai supposé que l'heure était sous forme caractère (d'où l'utilisation de as.integer)

C'est pour ça qu'il est vraiment préférable d'utiliser dput() pour communiquer un jeu de données (même petit), parce qu'on récupère ainsi l'objet R complet au lieu de recréer un autre objet qui peut différer de celui d'origine.
http://forums.cirad.fr/logiciel-R/viewtopic.php?f=1&t=3302

[Serge Rapenne]

Bonjour,

j'aurais fait comme Pierre-Yves, mais voici une autre solution possible (j'appelle dta le jeu de données) :

Code : Tout sélectionner

library(dplyr)
dta %>% filter(heure %in% sprintf("%02d",seq(0,24,by=2))) %>% summarise(somme=sum(x))

j'ouvre par la même un concours d'offuscation :-) qui fera pire ?

Serge

[Pierre-Yves Berrard]

j'ouvre par la même un concours d'offuscation :-) qui fera pire ?

Un essai :

Code : Tout sélectionner

sum(donnees$x[!as.logical(bitwAnd(as.integer(donnees$heure), 1))])

[François Bonnot]

j'ouvre par la même un concours d'offuscation :-) qui fera pire ?

Je propose :

Code : Tout sélectionner

sum((cos(dta$heure*pi)+1)*dta$x)/2

[Serge Rapenne]

Ok, ok, ok après tout, ma proposition n'était pas si mal. l'imagination torturé des contributeurs semble sans limite

Serge

[Stephan Defoy]

En tout cas, merci bien pour toutes vos contributions !
Je pense opter pour la solution la plus simple ...
J'ai bien noté la méthode préconisée pour mettre les données.

Bonne journée à tous !

[Stephan Defoy]

Je suis désolé, j'aurais dû vous poser tout de suite ma problématique réelle, je galère au step suivant. Je souhaiterais en fait la somme des heures tri-horaires, 00, 03 , 06 etc ...
Je pensais que ce serait simple mais je me vois obligé d'utiliser la notation c(1, 4, 7 .....), je trouve ça un peu lourd, d'autant qu'il faut que je le répète à plusieurs reprises dans mon programme.
Si vous avez une meilleur idée ...

[Stephan Defoy]

J'ai oublié de vous dire, je n'ai pas accès à la librairie dplyr ....

[Pierre-Yves Berrard]

Il suffit de modifier la condition avec le modulo :

Code : Tout sélectionner

sum(donnees$x[as.integer(donnees$heure) %% 3 == 1])

PS : pour avoir dplyr : install.packages("dplyr"), mais l'instruction ci-dessus ne le nécessite pas

[Stephan Defoy]

ma concaténation ne fonctionne pas, je viens de m'en apercevoir...

[Stephan Defoy]

Ok, merci bcp, je n'avais pas bien compris la logique, désolé !

[Stephan Defoy]

Petit correctif, en fait il faut mettre un "/" entre les 2 "%" pour avoir la division entière, soit
b$x[as.integer(b$heure) %/% 3 == 1] si b est le vecteur de base.

[Stephan Defoy]

Déd=cidément, ça marche avec %% mais il faut que le reste soit égale à 0, donc il faut faire
b$x[as.integer(b$heure) %% 3 == 0]
Ce sera mon dernier mot, pour ce soir, je pense ....