Discussion :

[Koumato]

Bonjour s'il vous plaît j'ai de données que je veux trier les mois de février ainsi que calculer tout les moyennes des valeurs du mois de février dans une seule variable. Comment faire ça avec le R ? Et mes données sont sous cette forme :

Année	Mois	TMao
1960	1	NA
1960	2	23.67
1960	3	21.56
1960	4	7.25
1961	1	37.99
1961	2	5.87
1961	3	9.23
1983	1	23.10
1983	2	34.21
1983	3	10.14
1999	1	12.13
1999	2	25.43
1999	3	17.80
1999	4	22.23
2000	1	10.59
2000	2	14.65
2000	3	29.13
2001	1	15.17
2001	2	8.25
2001	3	NA
2001	4	NA

Merci d'avance pour vos suggestions.

[wax78]

En admettant que tu as bien un objet qui représente un ligne tel que :

Code Java :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
public class DTO
	{
		int		Annee;
		int		mois;
		double	TMao;
 
		/**
                 * @param annee
                 * @param mois
                 * @param tMao
                 */
		protected DTO(int annee, int mois, double tMao)
		{
			super();
			Annee = annee;
			this.mois = mois;
			TMao = tMao;
		}
 
		/**
                 * @return the annee
                 */
		public synchronized int getAnnee()
		{
			return Annee;
		}
 
		/**
                 * @param annee
                 *            the annee to set
                 */
		public synchronized void setAnnee(int annee)
		{
			Annee = annee;
 
		}
 
		/**
                 * @return the mois
                 */
		public synchronized int getMois()
		{
			return mois;
		}
 
		/**
                 * @param mois
                 *            the mois to set
                 */
		public synchronized void setMois(int mois)
		{
			this.mois = mois;
 
		}
 
		/**
                 * @return the tMao
                 */
		public synchronized double getTMao()
		{
			return TMao;
		}
 
		/**
                 * @param tMao
                 *            the tMao to set
                 */
		public synchronized void setTMao(double tMao)
		{
			TMao = tMao;
 
		}
 
	}

quelques lignes suffisent pour filtrer dans la liste et obtenir une moyenne comme ceci :

Code Java :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
import java.util.ArrayList;
import java.util.DoubleSummaryStatistics;
import java.util.List;
 
/**
 * 
 */
 
/**
 * @author Warnotte Renaud
 */
public class Averager
{
 
 
 
	/**
         * @param args
         */
	public static void main(String[] args)
	{
		List<DTO> list = new ArrayList<>();
 
		list.add(new DTO(1960, 1, Double.NaN));
		list.add(new DTO(1960, 2, 23.67));
		list.add(new DTO(1960, 3, 21.56));
		list.add(new DTO(1960, 4, 7.25));
		list.add(new DTO(1961, 1, 37.99));
		list.add(new DTO(1961, 2, 5.87));
		list.add(new DTO(1961, 3, 9.23));
		list.add(new DTO(1983, 1, 23.10));
		list.add(new DTO(1983, 2, 34.21));
		list.add(new DTO(1983, 3, 10.14));
		list.add(new DTO(1999, 1, 12.13));
		list.add(new DTO(1999, 2, 25.43));
		list.add(new DTO(1999, 3, 17.80));
		list.add(new DTO(1999, 4, 22.23));
		list.add(new DTO(2000, 1, 10.59));
		list.add(new DTO(2000, 2, 14.65));
		list.add(new DTO(2000, 3, 29.13));
		list.add(new DTO(2001, 1, 15.17));
		list.add(new DTO(2001, 2, 8.25));
		list.add(new DTO(2001, 3, Double.NaN));
		list.add(new DTO(2001, 4, Double.NaN));
 
		DoubleSummaryStatistics statistics = list.stream()
				.filter(e -> e.getMois()==2) // Filtre par mois
		        .mapToDouble(DTO::getTMao) // Statistique sur TMao
		        .summaryStatistics();
 
		double Average = statistics.getAverage();
		System.out.println("Avg = "+Average);
 
 
	}
 
}

[Koumato]

Merci sa marche bien. Est-ce que je peux avoir d'autres propositions en R avec le Mean, apply... pour le logiciel R.

[tototode]

Bonjour,

Si ton objet s'appelle tab :

Code :

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

aggregate(TMao ~ Mois, subset(tab, Mois == 2), mean)

Subset pour filtrer les données, et aggregate pour les agréger.

cdlt