library(questionr)
## Jeu de données hdv2003
data(hdv2003)
View(hdv2003)
d <- hdv2003
nrow(d)
## [1] 2000
ncol(d)
## [1] 20
dim(d)
## [1] 2000 20
names(d)
## [1] "id" "age" "sexe" "nivetud"
## [5] "poids" "occup" "qualif" "freres.soeurs"
## [9] "clso" "relig" "trav.imp" "trav.satisf"
## [13] "hard.rock" "lecture.bd" "peche.chasse" "cuisine"
## [17] "bricol" "cinema" "sport" "heures.tv"
str(d)
## 'data.frame': 2000 obs. of 20 variables:
## $ id : int 1 2 3 4 5 6 7 8 9 10 ...
## $ age : int 28 23 59 34 71 35 60 47 20 28 ...
## $ sexe : Factor w/ 2 levels "Homme","Femme": 2 2 1 1 2 2 2 1 2 1 ...
## $ nivetud : Factor w/ 8 levels "N'a jamais fait d'etudes",..: 8 NA 3 8 3 6 3 6 NA 7 ...
## $ poids : num 2634 9738 3994 5732 4329 ...
## $ occup : Factor w/ 7 levels "Exerce une profession",..: 1 3 1 1 4 1 6 1 3 1 ...
## $ qualif : Factor w/ 7 levels "Ouvrier specialise",..: 6 NA 3 3 6 6 2 2 NA 7 ...
## $ freres.soeurs: int 8 2 2 1 0 5 1 5 4 2 ...
## $ clso : Factor w/ 3 levels "Oui","Non","Ne sait pas": 1 1 2 2 1 2 1 2 1 2 ...
## $ relig : Factor w/ 6 levels "Pratiquant regulier",..: 4 4 4 3 1 4 3 4 3 2 ...
## $ trav.imp : Factor w/ 4 levels "Le plus important",..: 4 NA 2 3 NA 1 NA 4 NA 3 ...
## $ trav.satisf : Factor w/ 3 levels "Satisfaction",..: 2 NA 3 1 NA 3 NA 2 NA 1 ...
## $ hard.rock : Factor w/ 2 levels "Non","Oui": 1 1 1 1 1 1 1 1 1 1 ...
## $ lecture.bd : Factor w/ 2 levels "Non","Oui": 1 1 1 1 1 1 1 1 1 1 ...
## $ peche.chasse : Factor w/ 2 levels "Non","Oui": 1 1 1 1 1 1 2 2 1 1 ...
## $ cuisine : Factor w/ 2 levels "Non","Oui": 2 1 1 2 1 1 2 2 1 1 ...
## $ bricol : Factor w/ 2 levels "Non","Oui": 1 1 1 2 1 1 1 2 1 1 ...
## $ cinema : Factor w/ 2 levels "Non","Oui": 1 2 1 2 1 2 1 1 2 2 ...
## $ sport : Factor w/ 2 levels "Non","Oui": 1 2 2 2 1 2 1 1 1 2 ...
## $ heures.tv : num 0 1 0 2 3 2 2.9 1 2 2 ...
d$sexe
## [1] Femme Femme Homme Homme Femme Femme Femme Homme Femme Homme Femme Homme
## [13] Femme Femme Femme Femme Homme Femme Homme Femme Femme Homme Femme Femme
## [25] Femme Homme Femme Homme Homme Homme Homme Homme Homme Homme Femme Femme
## [37] Homme Femme Femme Homme Femme Homme Homme Femme Femme Homme Femme Femme
## [49] Femme Femme Homme Femme Homme Femme Homme Femme Femme Femme Homme Femme
## [61] Femme Homme Homme Homme Homme Femme Homme Homme Femme Femme Homme Homme
## [73] Femme Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme Homme
## [85] Homme Femme Homme Homme Homme Homme Homme Femme Homme Femme Femme Femme
## [97] Homme Homme Femme Femme Femme Homme Femme Homme Homme Femme Femme Femme
## [109] Femme Homme Homme Homme Homme Homme Femme Homme Homme Femme Homme Homme
## [121] Femme Femme Femme Homme Femme Femme Homme Femme Femme Homme Femme Homme
## [133] Femme Femme Femme Homme Homme Homme Homme Homme Homme Homme Homme Femme
## [145] Homme Homme Homme Femme Femme Femme Homme Femme Femme Femme Femme Homme
## [157] Femme Homme Homme Homme Femme Homme Femme Homme Femme Homme Homme Femme
## [169] Femme Femme Homme Femme Homme Femme Femme Femme Homme Homme Homme Femme
## [181] Homme Femme Femme Homme Homme Femme Femme Femme Femme Femme Homme Homme
## [193] Femme Homme Homme Femme Homme Femme Homme Femme Femme Homme Femme Homme
## [205] Femme Homme Femme Femme Homme Femme Femme Femme Femme Femme Homme Femme
## [217] Femme Femme Femme Homme Homme Homme Femme Femme Femme Femme Femme Homme
## [229] Femme Femme Femme Femme Femme Homme Homme Femme Femme Femme Femme Femme
## [241] Homme Homme Femme Homme Homme Homme Homme Femme Femme Femme Femme Homme
## [253] Femme Homme Homme Femme Femme Homme Femme Homme Homme Homme Femme Femme
## [265] Homme Femme Femme Homme Homme Femme Femme Homme Femme Femme Femme Femme
## [277] Homme Homme Femme Homme Homme Homme Homme Femme Femme Femme Femme Femme
## [289] Femme Homme Femme Homme Femme Femme Homme Homme Homme Femme Femme Homme
## [301] Femme Femme Femme Femme Homme Femme Femme Femme Femme Homme Femme Femme
## [313] Homme Homme Homme Femme Femme Homme Femme Femme Homme Femme Homme Homme
## [325] Homme Femme Homme Femme Femme Femme Femme Femme Femme Homme Homme Femme
## [337] Homme Homme Homme Femme Homme Femme Homme Femme Femme Femme Homme Femme
## [349] Homme Femme Femme Homme Homme Femme Homme Femme Femme Homme Homme Homme
## [361] Femme Homme Homme Homme Femme Homme Femme Femme Femme Homme Homme Femme
## [373] Homme Femme Femme Femme Homme Homme Femme Femme Homme Femme Femme Femme
## [385] Femme Femme Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme
## [397] Femme Homme Femme Femme Femme Homme Homme Homme Femme Homme Homme Femme
## [409] Homme Femme Homme Femme Femme Femme Homme Homme Femme Homme Homme Homme
## [421] Homme Homme Homme Femme Femme Femme Homme Homme Femme Femme Homme Femme
## [433] Femme Femme Femme Femme Homme Homme Femme Femme Femme Femme Homme Femme
## [445] Femme Homme Femme Homme Homme Femme Femme Femme Homme Femme Homme Homme
## [457] Homme Homme Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme
## [469] Homme Femme Femme Homme Homme Homme Femme Femme Femme Homme Homme Femme
## [481] Femme Femme Femme Femme Homme Femme Homme Homme Femme Femme Femme Homme
## [493] Femme Homme Femme Femme Homme Femme Homme Homme Homme Homme Homme Femme
## [505] Femme Homme Femme Homme Femme Homme Homme Femme Homme Femme Femme Homme
## [517] Femme Homme Homme Femme Homme Femme Homme Homme Homme Homme Homme Femme
## [529] Femme Homme Homme Homme Femme Femme Femme Femme Homme Homme Femme Homme
## [541] Homme Femme Femme Femme Homme Homme Homme Homme Homme Homme Femme Homme
## [553] Femme Homme Homme Homme Homme Homme Homme Homme Homme Femme Homme Homme
## [565] Femme Homme Homme Femme Homme Femme Homme Homme Homme Femme Homme Femme
## [577] Femme Femme Femme Femme Homme Femme Femme Femme Femme Homme Femme Femme
## [589] Femme Homme Homme Homme Femme Femme Homme Homme Homme Femme Femme Homme
## [601] Homme Femme Homme Femme Homme Femme Femme Homme Homme Homme Homme Femme
## [613] Femme Homme Femme Homme Homme Femme Femme Femme Femme Homme Femme Femme
## [625] Homme Femme Femme Homme Femme Femme Homme Homme Femme Femme Femme Femme
## [637] Femme Femme Femme Homme Femme Femme Femme Femme Femme Homme Femme Homme
## [649] Femme Homme Femme Homme Femme Femme Femme Homme Femme Femme Homme Femme
## [661] Homme Homme Femme Homme Femme Femme Femme Femme Homme Homme Femme Femme
## [673] Femme Femme Homme Femme Homme Femme Homme Homme Femme Homme Homme Homme
## [685] Homme Homme Homme Homme Homme Homme Homme Femme Femme Homme Homme Femme
## [697] Homme Homme Femme Homme Homme Femme Homme Homme Femme Femme Homme Homme
## [709] Homme Femme Femme Femme Homme Femme Homme Femme Homme Femme Femme Homme
## [721] Homme Femme Homme Homme Homme Homme Femme Femme Homme Homme Homme Femme
## [733] Femme Homme Femme Femme Femme Femme Homme Femme Homme Femme Homme Homme
## [745] Homme Femme Homme Homme Femme Femme Femme Homme Femme Femme Homme Femme
## [757] Femme Homme Femme Femme Femme Femme Homme Femme Homme Femme Femme Homme
## [769] Femme Homme Femme Femme Femme Femme Femme Homme Homme Homme Femme Femme
## [781] Femme Femme Femme Homme Homme Homme Femme Homme Homme Homme Femme Femme
## [793] Femme Femme Femme Homme Femme Femme Femme Homme Homme Homme Femme Femme
## [805] Femme Femme Homme Femme Femme Femme Homme Femme Femme Homme Femme Femme
## [817] Homme Homme Femme Homme Femme Femme Homme Homme Femme Femme Femme Femme
## [829] Femme Homme Femme Homme Homme Femme Homme Homme Homme Homme Femme Homme
## [841] Femme Femme Homme Homme Homme Homme Femme Femme Homme Homme Femme Femme
## [853] Homme Homme Femme Homme Femme Homme Homme Femme Femme Homme Femme Homme
## [865] Homme Homme Femme Homme Femme Homme Homme Femme Homme Homme Homme Femme
## [877] Femme Femme Homme Homme Femme Femme Homme Homme Homme Homme Homme Homme
## [889] Homme Femme Homme Homme Homme Homme Homme Femme Femme Homme Femme Femme
## [901] Femme Homme Homme Femme Homme Femme Homme Femme Femme Homme Femme Femme
## [913] Homme Femme Homme Femme Homme Homme Homme Femme Femme Homme Femme Homme
## [925] Femme Femme Femme Femme Homme Femme Femme Femme Femme Homme Homme Femme
## [937] Femme Homme Femme Femme Homme Femme Femme Femme Femme Femme Femme Femme
## [949] Femme Homme Femme Homme Femme Homme Femme Femme Femme Femme Femme Homme
## [961] Femme Femme Homme Femme Femme Homme Femme Femme Femme Femme Homme Homme
## [973] Femme Femme Femme Femme Homme Homme Femme Femme Homme Homme Femme Homme
## [985] Homme Femme Femme Homme Femme Femme Femme Femme Femme Femme Femme Homme
## [997] Femme Homme Homme Homme Femme Homme Homme Femme Femme Homme Femme Homme
## [1009] Homme Homme Femme Femme Femme Homme Femme Femme Homme Homme Homme Homme
## [1021] Homme Homme Femme Femme Femme Homme Homme Homme Femme Homme Homme Homme
## [1033] Homme Femme Femme Homme Femme Femme Femme Femme Homme Homme Femme Femme
## [1045] Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme Femme Homme
## [1057] Homme Femme Femme Femme Homme Homme Homme Femme Femme Homme Homme Femme
## [1069] Homme Femme Femme Femme Femme Homme Homme Homme Homme Femme Femme Homme
## [1081] Homme Femme Homme Femme Femme Homme Homme Femme Homme Femme Femme Femme
## [1093] Femme Femme Femme Homme Homme Femme Femme Femme Femme Femme Femme Femme
## [1105] Homme Homme Femme Homme Homme Homme Femme Homme Femme Femme Homme Femme
## [1117] Femme Femme Homme Femme Homme Femme Homme Homme Femme Homme Femme Homme
## [1129] Femme Femme Homme Homme Femme Femme Femme Homme Femme Homme Femme Homme
## [1141] Femme Homme Homme Homme Femme Homme Homme Femme Femme Homme Homme Femme
## [1153] Homme Femme Femme Femme Femme Femme Femme Homme Femme Femme Femme Femme
## [1165] Femme Femme Femme Femme Homme Homme Homme Femme Homme Homme Femme Homme
## [1177] Femme Homme Femme Homme Femme Femme Homme Femme Homme Femme Homme Femme
## [1189] Femme Homme Femme Homme Femme Femme Homme Femme Femme Homme Femme Femme
## [1201] Homme Homme Homme Femme Homme Femme Femme Femme Homme Homme Homme Femme
## [1213] Femme Femme Homme Femme Femme Femme Femme Homme Femme Femme Femme Homme
## [1225] Femme Femme Homme Femme Femme Femme Femme Homme Homme Femme Femme Homme
## [1237] Homme Homme Femme Femme Femme Femme Homme Homme Homme Femme Femme Femme
## [1249] Homme Femme Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme
## [1261] Homme Femme Femme Femme Homme Femme Homme Femme Femme Homme Femme Homme
## [1273] Homme Homme Femme Homme Femme Femme Femme Femme Homme Homme Femme Femme
## [1285] Homme Homme Femme Homme Femme Homme Femme Femme Femme Femme Femme Homme
## [1297] Femme Femme Homme Femme Homme Femme Homme Homme Femme Homme Femme Femme
## [1309] Homme Femme Femme Homme Femme Homme Homme Femme Femme Femme Femme Homme
## [1321] Homme Homme Homme Homme Homme Femme Femme Femme Femme Femme Femme Femme
## [1333] Femme Femme Homme Homme Femme Homme Homme Homme Femme Femme Femme Femme
## [1345] Homme Femme Femme Homme Homme Femme Femme Homme Homme Femme Femme Homme
## [1357] Homme Femme Femme Femme Homme Femme Femme Femme Femme Femme Femme Homme
## [1369] Homme Femme Homme Femme Femme Femme Femme Homme Homme Femme Femme Homme
## [1381] Femme Femme Femme Homme Femme Homme Homme Femme Femme Femme Homme Homme
## [1393] Femme Homme Homme Homme Femme Homme Femme Homme Femme Femme Femme Homme
## [1405] Femme Homme Homme Femme Femme Homme Femme Femme Femme Femme Femme Homme
## [1417] Homme Femme Femme Homme Homme Homme Femme Femme Femme Femme Femme Femme
## [1429] Femme Homme Homme Femme Homme Femme Homme Femme Homme Femme Femme Femme
## [1441] Femme Homme Femme Femme Femme Femme Femme Homme Homme Femme Homme Homme
## [1453] Femme Femme Femme Femme Femme Homme Femme Femme Homme Homme Femme Homme
## [1465] Homme Homme Femme Homme Femme Homme Homme Femme Femme Homme Femme Homme
## [1477] Homme Femme Homme Homme Homme Femme Homme Femme Femme Homme Femme Femme
## [1489] Homme Femme Femme Femme Homme Homme Homme Homme Femme Homme Femme Homme
## [1501] Femme Homme Homme Femme Femme Homme Homme Femme Femme Homme Homme Homme
## [1513] Homme Homme Homme Femme Homme Femme Femme Femme Homme Homme Homme Homme
## [1525] Homme Homme Homme Homme Homme Homme Femme Femme Femme Femme Homme Homme
## [1537] Femme Femme Femme Femme Homme Femme Homme Femme Femme Homme Femme Homme
## [1549] Femme Homme Femme Homme Homme Homme Femme Femme Homme Femme Homme Homme
## [1561] Homme Homme Femme Femme Femme Homme Femme Homme Femme Homme Femme Homme
## [1573] Femme Femme Femme Homme Homme Homme Femme Homme Femme Homme Homme Femme
## [1585] Femme Homme Femme Homme Femme Homme Femme Homme Homme Homme Homme Homme
## [1597] Femme Femme Homme Femme Homme Femme Femme Homme Femme Homme Homme Homme
## [1609] Homme Femme Femme Femme Homme Femme Homme Femme Femme Femme Homme Homme
## [1621] Homme Femme Femme Femme Femme Femme Homme Homme Femme Homme Femme Homme
## [1633] Femme Homme Femme Homme Homme Homme Femme Homme Homme Femme Homme Femme
## [1645] Homme Homme Femme Femme Femme Femme Homme Homme Femme Homme Femme Homme
## [1657] Femme Femme Femme Homme Homme Homme Homme Femme Femme Femme Femme Homme
## [1669] Femme Homme Homme Homme Femme Femme Femme Homme Femme Homme Homme Homme
## [1681] Homme Homme Femme Homme Femme Femme Femme Femme Homme Homme Homme Homme
## [1693] Homme Femme Homme Femme Femme Homme Femme Femme Homme Femme Femme Homme
## [1705] Femme Homme Femme Femme Femme Femme Homme Femme Homme Femme Homme Femme
## [1717] Homme Femme Femme Femme Femme Femme Femme Homme Homme Homme Homme Homme
## [1729] Femme Homme Femme Homme Femme Homme Homme Femme Homme Femme Homme Homme
## [1741] Homme Homme Femme Homme Homme Femme Femme Femme Femme Femme Femme Femme
## [1753] Homme Femme Homme Femme Femme Homme Homme Femme Femme Femme Femme Homme
## [1765] Femme Homme Femme Femme Femme Femme Femme Femme Homme Homme Femme Femme
## [1777] Femme Homme Femme Homme Femme Homme Homme Femme Femme Homme Femme Homme
## [1789] Homme Femme Homme Homme Homme Femme Femme Femme Homme Femme Femme Homme
## [1801] Homme Femme Femme Femme Femme Homme Homme Homme Homme Homme Femme Homme
## [1813] Femme Homme Homme Homme Femme Homme Femme Femme Femme Homme Femme Femme
## [1825] Femme Femme Homme Femme Femme Femme Femme Femme Femme Homme Femme Femme
## [1837] Femme Femme Femme Femme Homme Femme Femme Femme Femme Homme Homme Homme
## [1849] Femme Homme Homme Femme Femme Femme Homme Femme Homme Homme Femme Homme
## [1861] Femme Femme Homme Homme Femme Homme Femme Homme Femme Femme Homme Femme
## [1873] Homme Femme Femme Femme Homme Homme Femme Homme Homme Homme Homme Femme
## [1885] Homme Homme Femme Femme Femme Femme Femme Homme Homme Homme Homme Femme
## [1897] Femme Homme Femme Femme Femme Femme Homme Homme Femme Homme Femme Homme
## [1909] Homme Homme Femme Femme Femme Femme Femme Femme Femme Homme Femme Femme
## [1921] Femme Femme Femme Homme Homme Homme Femme Femme Homme Homme Femme Femme
## [1933] Femme Homme Femme Femme Homme Femme Homme Homme Homme Femme Homme Femme
## [1945] Homme Homme Femme Femme Femme Femme Homme Homme Femme Femme Homme Femme
## [1957] Homme Homme Homme Femme Femme Homme Femme Homme Femme Femme Homme Homme
## [1969] Homme Homme Femme Femme Femme Homme Femme Femme Homme Femme Femme Homme
## [1981] Femme Homme Femme Homme Femme Homme Homme Homme Homme Femme Femme Femme
## [1993] Homme Homme Femme Homme Homme Homme Femme Femme
## Levels: Homme Femme
head(d$age)
## [1] 28 23 59 34 71 35
tail(d$age,10)
## [1] 52 42 50 41 46 45 46 24 24 66
head(d$heures.tv, 10)
## [1] 0.0 1.0 0.0 2.0 3.0 2.0 2.9 1.0 2.0 2.0
d$minutes.tv <- d$heures.tv * 60
head(d$minutes.tv)
## [1] 0 60 0 120 180 120
min(d$age)
## [1] 18
max(d$age)
## [1] 97
range(d$age)
## [1] 18 97
mean(d$age)
## [1] 48.157
median(d$age)
## [1] 48
#Indicateurs de dispersion
max(d$age) - min(d$age)
## [1] 79
#Analyse univariée
var(d$age)
## [1] 287.0249
sd(d$age)
## [1] 16.94181
## Premier quartile
quantile(d$age, prob = 0.25)
## 25%
## 35
## Troisième quartile
quantile(d$age, prob = 0.75)
## 75%
## 60
#fonction summary
summary(d$age)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 18.00 35.00 48.00 48.16 60.00 97.00
#Représentation graphique
hist(d$age)
hist(d$age, breaks = 10)
hist(d$age, breaks = 70)
hist(d$age, col = "skyblue",
main = "Répartition des âges des enquêtés",
xlab = "Âge",
ylab = "Effectif")
hist(d$age, col = "tomato",
main = "Répartition des âges des enquêtés",
xlab = "Âge",
ylab = "Effectif")
#Analyser une variable qualitative
##Tri à plat
table(d$sexe)
##
## Homme Femme
## 899 1101
table(d$qualif)
##
## Ouvrier specialise Ouvrier qualifie Technicien
## 203 292 86
## Profession intermediaire Cadre Employe
## 160 260 594
## Autre
## 58
tab <- table(d$qualif)
sort(tab)
##
## Autre Technicien Profession intermediaire
## 58 86 160
## Ouvrier specialise Cadre Ouvrier qualifie
## 203 260 292
## Employe
## 594
freq(d$qualif)
## n % val%
## Ouvrier specialise 203 10.2 12.3
## Ouvrier qualifie 292 14.6 17.7
## Technicien 86 4.3 5.2
## Profession intermediaire 160 8.0 9.7
## Cadre 260 13.0 15.7
## Employe 594 29.7 35.9
## Autre 58 2.9 3.5
## NA 347 17.3 NA
freq(d$qualif, valid = FALSE, total = TRUE, sort = "dec")
## n %
## Employe 594 29.7
## Ouvrier qualifie 292 14.6
## Cadre 260 13.0
## Ouvrier specialise 203 10.2
## Profession intermediaire 160 8.0
## Technicien 86 4.3
## Autre 58 2.9
## NA 347 17.3
## Total 2000 100.0
##Représentations graphiques
tab <- table(d$clso)
###diagramme en barres
barplot(tab)
barplot(sort(tab))
###diagramme de Cleveland
dotchart(table(d$qualif))
## Warning in dotchart(table(d$qualif)): 'x' is neither a vector nor a matrix:
## using as.numeric(x)
dotchart(sort(table(d$qualif)))
## Warning in dotchart(sort(table(d$qualif))): 'x' is neither a vector nor a
## matrix: using as.numeric(x)
