Discussion :

[vicjohns]

Bonjour à tous,

Etant confronté à un soucis sur R je sollicite votre aide. Merci d'avance pour le temps que vous me consacré.

Voici mes données:

contrat	date	Mois	Montant
1	01/05/2017	5	300
2	09/04/2016	4	500
2	15/05/2016	5	150
2	19/12/2017	12	30
5	30/02/2005	2	100
5	30/01/2005	1	100
10	23/07/2007	7	10
10	23/08/2007	8	50
2	23/12/2007	12	200

J'aimerais obtenir le tableau suivant avec ces conditions:
IF Mois <= 3 THEN Q1 = sum(Montant); ELSE Q1 = 0
IF Mois > 3 and Mois <=6 THEN Q2 = sum(Montant) ; ELSE Q2 = 0
IF Mois > 6 and Mois <=9 THEN Q3 = sum(Montant); ELSE Q3 = 0
IF Mois > 9 THEN Q4 = sum(Montant); ELSE Q4 = 0

contrat	Q1	Q2	Q3	Q4
1	0	300	0	0
2	0	650	0	0
2	0	0	0	230
5	200	0	0	0
10	0	0	60	0

Encore une fois merci pour votre aide.

[mgdondon]

Bonjour,

Par exemple :

Code :

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
> df <- read.table("test.txt",header=TRUE)
> df$Q1 <- ifelse(df$Mois <= 3, df$Montant, 0)
> df$Q2 <- ifelse(df$Mois > 3 & df$Mois <= 6, df$Montant, 0)
> df$Q3 <- ifelse(df$Mois > 6 & df$Mois <= 9, df$Montant, 0)
> df$Q4 <- ifelse(df$Mois > 9, df$Montant, 0)
> df
  contrat       date Mois Montant  Q1  Q2 Q3  Q4
1       1 01/05/2017    5     300   0 300  0   0
2       2 09/04/2016    4     500   0 500  0   0
3       2 15/05/2016    5     150   0 150  0   0
4       2 19/12/2017   12      30   0   0  0  30
5       5 30/02/2005    2     100 100   0  0   0
6       5 30/01/2005    1     100 100   0  0   0
7      10 23/07/2007    7      10   0   0 10   0
8      10 23/08/2007    8      50   0   0 50   0
9       2 23/12/2007   12     200   0   0  0 200

Code :

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

1
2
3
4
5
6
7
8
> df <- aggregate(df[,5:8],by=list(df$contrat),sum)
> colnames(df)[colnames(df)=="Group.1"] <- "contrat"
> df
  contrat  Q1  Q2 Q3  Q4
1       1   0 300  0   0
2       2   0 650  0 230
3       5 200   0  0   0
4      10   0   0 60   0

Cordialement,

[vicjohns]

Merci pour votre prompte réponse. Je vais essayer ça et voir ce que ça donne.

[vicjohns]

Merci beaucoup votre réponse. Le code marche à merveille.