Discussion :

[CupOfAppleTea]

Bonjour,
Je dispose d'un jeu de données de température (tableau d'une colonne et d'autant de lignes que de valeurs de température) et souhaiterais ajouter une colonne à mon tableau pour calculer une moyenne toutes les 5 valeurs afin de diminuer le taux d'échantillonnage.
J'obtiendrai donc au final un tableau de 2 colonnes, avec dans la 1ère une valeur toutes les lignes et dans la seconde une valeur toutes les 5 lignes.

Comment puis-je automatiser tout ça avec R? Dois-je passer par une matrice?

Merci pour votre aide et voici le fichier en pièce jointe.

[vchouraki]

Bonjour,

Code :

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

1
2
3
4
essai <-read.table("Essai.txt", header=TRUE)
essai$temp.sorted <- sort(essai$T_Canopee)
essai$groupe <- rep(1:ceiling(nrow(essai) / 5), each=5, length.out=nrow(essai))
essai$reduction <- ave(essai$temp.sorted, essai$groupe)

Sinon, ça va être dur de mettre côte à côte dans un data.frame deux colonnes ayant des longueurs différentes. Vous pouvez utiliser des listes :

Code :

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

1
2
3
4
resultat <- list(temp=essai$temp.sorted,
                 reduction=tapply(essai$temp.sorted, 
                                  essai$groupe, 
                                  mean))

HTH

Vincent

[tomaprice]

Apres avoir fait un read.table sur ton fichier

Code :

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

1
2
3
4
5
6
7
8
essai$Mean_5=NA
for(i in 1:nrow(essai)){
	if(i%%5==0){
		m = mean(essai$T_Canopee[((i-5)+1):i])
		essai$Mean_5[((i-5)+1):i]=m
	}
 
}

[CupOfAppleTea]

vchouraki --> Je ne peux pas modifier l'ordre de mes données. Les ranger par ordre croissant n'a pas de sens dans mon cas puisqu'il s'agit de valeurs de température acquises dans le temps, dans un ordre précis. Je ne peux donc pas faire de moyenne en prenant une valeur acquise le matin et une autre le soir.

tomaprice --> Ca marche nickel, très malin le %%. une petite modif et c'est tout à fait ce que je cherchais. Merci bien!!!