R TD1
R TD1
R TD1
Représentations Graphiques
• Variables qualitatives
• Variables quantitatives
• Diagramme en bâtons, camemberts,
histogrammes, boîtes à moustaches,
diagrammes cartésiens, diagrammes en fagot
> barplot(table(smp.c$prof))
200
150
100
50
0
> barplot(table(smp.c$prof))
> str(smp.c$prof)
Factor w/ 8 levels "agriculteur",..: 3 NA 7 6 8 6 3 2 6 6 ...
> table(smp.c$prof)
> barplot(table(smp.c$prof))
200
150
100
50
0
> pie(table(smp.c$prof))
employé
cadre
autre
artisan
agriculteur
ouvrier
sans emploi
prof.intermédiaire
> hist(smp.c$age)
120
100 Histogram of smp.c$age
Frequency
80
60
40
20
0
20 30 40 50 60 70 80
smp.c$age
> hist(smp.c$age,col="grey",main="",
xlab="age")
120
100
Frequency
80
60
40
20
0
20 30 40 50 60 70 80
age
> boxplot(smp.c$age,xlab="age")
80
70
25% desdonnées
60
50
25% desdonnées
40
25% desdonnées
30
25% desdonnées
20
age
> boxplot(smp.c$age~smp.c$rs,ylab="age",
xlab="Recherche de sensation")
80
70
60
age
50
40
30
20
1 2 3
Recherche de sensation
> plot(smp.c$age,smp.c$n.enfant)
> plot(jitter(smp.c$age),
jitter(smp.c$n.enfant))
20
15
10
0 4 7 14 21 28 42 56
repdat$VISIT
> library(gplots)
> plotmeans(repdat$HDRS~repdat$VISIT,gap=0,
barcol="black")
25
repdat$HDRS
20
15
10
0 4 7 14 21 28 42 56
repdat$VISIT
> interaction.plot(repdat$VISIT,repdat$NUMERO,
repdat$HDRS,lty=1,legend=FALSE)
mean of repdat$HDRS
40
30
20
10
0
0 4 7 14 21 28 42 56
repdat$VISIT