PACKAGE COWPLOT
Les données
[Link](852)
poids<-rnorm(50,80,2)
taille<-runif(50,165,200)
genre<-sample(c("H","F"),50,replace=T,prob=c(0.3,0.7))
table(genre)
genre
F H
35 15
sanguin<-sample(c("O","A","B","AB"),50,replace=T)
genre<-[Link](genre)
sanguin<-[Link](sanguin)
table(sanguin)
sanguin
A AB B O
14 12 9 15
don<-[Link](poids,taille,genre,sanguin)
summary(don)
poids taille genre sanguin
Min. :75.28 Min. :165.1 F:35 A :14
1st Qu.:78.66 1st Qu.:172.0 H:15 AB:12
Median :80.11 Median :182.6 B : 9
Mean :79.95 Mean :182.6 O :15
3rd Qu.:81.12 3rd Qu.:192.8
str(don)
'[Link]': 50 obs. of 4 variables:
$ poids : num 80.5 77.3 82.2 82.6 79.9 ...
$ taille : num 178 194 195 197 192 ...
$ genre : Factor w/ 2 levels "F","H": 1 2 1 2 1 1 2 2 2 2 ...
$ sanguin: Factor w/ 4 levels "A","AB","B","O": 3 3 2 3 2 2 3 3 3 1 ...
library(ggplot2)
Diagramme de dispersion
g1<-ggplot(don) + aes(x=genre,y=poids,color=sanguin) + geom_jitter(position =
position_jitter(0.2),size=5)+
labs(x="GENRE",y="POIDS EN KG",title="REPARTITION DES POIDS PAR GENRE")
g1
REPARTITION DES POIDS PAR GENRE
85.0
82.5
sanguin
POIDS EN KG
A
AB
80.0 B
O
77.5
F H
GENRE
Nuage de points
g2<-ggplot(don) + aes(x=taille,y=poids,color=genre) + geom_point(size=5) +
facet_wrap(facets = ~genre)+
labs(x="TAILLE EN CM",y="POIDS EN KG",title="POIDS EN FONCTION DE LA TAILLE")
g2
POIDS EN FONCTION DE LA TAILLE
F H
85.0
82.5
POIDS EN KG
genre
F
80.0 H
77.5
170 180 190 200 170 180 190 200
TAILLE EN CM
Histogramme
g3<-ggplot(don) + aes(poids,fill = genre) + geom_histogram(bins=7, color="black")+
labs(x="POIDS EN KG",title="REPARTITION DES POIDS PAR GENRE",fill="GENRE")
g3
REPARTITION DES POIDS PAR GENRE
15
10
GENRE
count
F
H
75 78 81 84
POIDS EN KG
Boites à moustaches
g4<-ggplot(don) + aes(x=genre,y=taille,fill=sanguin) +
geom_boxplot() +
labs(x="GENRE",y="TAILLE EN CM",title="REPARTITION DES TAILLES PAR GENRE",fill="GROUPE SANGUIN")
g4
REPARTITION DES TAILLES PAR GENRE
200
190
GROUPE SANGUIN
TAILLE EN CM
A
AB
B
180 O
170
F H
GENRE
[Link]("cowplot")
library(cowplot)
plot_grid(g1,g2,g3,g4,labels="AUTO",label_colour="blue",label_size=20,
ncol=2,nrow=2,rel_widths=c(1,1),rel_heights=c(1,1))+theme_grey()
REPARTITION DES POIDS PAR GENRE POIDS EN FONCTION DE LA TAILLE
A B
85.0 F H
85.0
82.5 sanguin
POIDS EN KG
82.5
POIDS EN KG
A
genre
AB
80.0 F
B 80.0
H
O
77.5
77.5
F H 170 180 190 200 170 180 190 200
GENRE TAILLE EN CM
REPARTITION DES POIDS PAR GENRE REPARTITION DES TAILLES PAR GENRE
C D
15 200
190 GROUPE SANGUIN
TAILLE EN CM
10
GENRE A
count
F AB
H 180 B
5
O
170
0
75 78 81 84 F H
POIDS EN KG GENRE
don1<-[Link](x=0.5,y=0.5)
g0<-ggplot(don1) + aes(x=x,y=y,label="TROIS GRAPHIQUES")+geom_text(size=15)
g0+theme_void()+
theme([Link]=element_rect(fill="bisque",colour="red",size=5))
TROIS GRAPHIQUES
plot_grid(g1,g0+theme_void()+theme([Link]=element_rect(fill="bisque",colour="red",size=5))
,g3,g4,labels=c("1","","2","3"),label_colour="blue",label_size=25,
ncol=2,nrow=2,rel_widths=c(2,1),rel_heights=c(1,1))
DISPERSION DES POIDS PAR GENRE
1
82.5
sanguin
POIDS EN KG
A
80.0
AB
B
TROIS GRAPHIQUES
O
77.5
75.0
F H
GENRE
REPARTITION DES POIDS PAR GENRE REPARTITION DES TAILLES PAR GENRE
2 15
3 200
190 GROUPE SANGUIN
TAILLE EN CM
10
GENRE A
count
F AB
H 180 B
5
O
170
0
75 78 81 84 F H
POIDS EN KG GENRE