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
| #création du tableau des fréquences des podiums
cut(traitement$podium....,c(0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100),include.lowest=TRUE)
pod=cut(traitement$podium....,c(0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100),include.lowest=TRUE)
freqpod=table(pod)
View(freqpod)
freqpod=data.frame(freqpod)
names(freqpod)[1]<-"Pourcentage"
names(freqpod)[2]<-"freq"
names(freqpod)[3]<-"cond"
#création du tableau des fréquences des victoires
cut(traitement$victoire....,c(0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100),include.lowest=TRUE)
vic=cut(traitement$victoire....,c(0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100),include.lowest=TRUE)
freqvic=table(vic)
View(freqvic)
names(freqvic)[2]<-"freq"
names(freqvic)[1]<-"Pourcentage"
names(freqvic)[3]<-"cond"
#création dun tableau commun
freq=rbind(freqvic,freqpod)
Pourcentage freq cond
1 [0,5] 19553 v
2 (5,10] 6421 v
3 (10,15] 3986 v
4 (15,20] 2579 v
5 (20,25] 1239 v
6 (25,30] 558 v
7 (30,35] 407 v
8 (35,40] 251 v
9 (40,45] 112 v
10 (45,50] 139 v
11 (50,55] 17 v
12 (55,60] 23 v
13 (60,65] 12 v
14 (65,70] 15 v
15 (70,75] 11 v
16 (75,80] 5 v
17 (80,85] 2 v
18 (85,90] 1 v
19 (90,95] 0 v
20 (95,100] 0 v
21 [0,5] 10073 p
22 (5,10] 2079 p
23 (10,15] 2978 p
24 (15,20] 4006 p
25 (20,25] 3880 p
26 (25,30] 3227 p
27 (30,35] 2855 p
28 (35,40] 2320 p
29 (40,45] 1409 p
30 (45,50] 1190 p
31 (50,55] 376 p
32 (55,60] 433 p
33 (60,65] 170 p
34 (65,70] 159 p
35 (70,75] 80 p
36 (75,80] 53 p
37 (80,85] 20 p
38 (85,90] 12 p
39 (90,95] 4 p
40 (95,100] 7 p
gg=ggplot(freq,aes(x=freq$Pourcentage,y=freq$freq,colour=freq$cond,shape=freq$cond) |
Partager