# I. Premiers pas ----
# Ce script est une introduction à l'utilisation de R avec l'interface RStudio
## 1. Installations du logiciel R et de l'inferface RStudio ----
# Installer R puis RStudio
# Lien d'installation pour R : http://cran.r-project.org/bin/windows/base/ (windows) ou http://cran.r-project.org/bin/macosx/ (MacOS X)
# Lien d'installation pour RStudio : http://www.rstudio.com/products/rstudio/download/
## 2. Découverte de l'interface RStudio ----
### 2.1 La console ----
2+2
## [1] 4
5-10
## [1] -5
78*5
## [1] 390
95/86
## [1] 1.104651
### 2.2 Les objets ----
#### 2.2.1 Les objets simples ----
# Création d'un objet de type numeric
x<-2 # Création du vecteur x qui prend la valeur 2
x+10 # Calcul de x+10 avec la valeur de x=2 et affichage du résultat
## [1] 12
# Création d'un objet de type character
y<-"bienvenue dans le cours !"
# Affichage des objets dans la fenêtre Environnement (cadrant nord-est)
# Pour voir le type d'objet, on utilise l'instruction class
class(x) # numeric
## [1] "numeric"
class(y) # character
## [1] "character"
# Pour supprimer un objet, on utilise l'instruction rm (pour remove)
rm(x)
rm(y)
#### Exercice d'application 1 ----
# Créer deux objets simples (un numérique et un character) de votre choix
z<-2026 # Création du vecteur z qui donne l'année en cours
z-81 # Calcul de l'année de naissance (en différence de millésimes) d'une personne âgée de 81 ans en 2026
## [1] 1945
stats<-"J'aime les statistiques"
#### 2.2.2 Les vecteurs ----
ages<-c(23, 22, 30, 24, 25, 26, 39, 28, NA, 22, 26, 27, 23, 31, 36)# Création du vecteur ages
ages # Affichage du vecteur ages
## [1] 23 22 30 24 25 26 39 28 NA 22 26 27 23 31 36
anais<-2019-ages # Création du vecteur anais à partir d'ages
anais # Affichage du vecteur anais
## [1] 1996 1997 1989 1995 1994 1993 1980 1991 NA 1997 1993 1992 1996 1988 1983
discipline<-c("sociologie", "science politique", "droit", "info-comm", "anthropologie", "sociologie", "staps", "économie", "sociologie", "sociologie", "droit", "anthropologie", "science politique", "sciences de l'education", "mathématiques") # Création du vecteur discipline
discipline # Affichage du vecteur discipline
## [1] "sociologie" "science politique"
## [3] "droit" "info-comm"
## [5] "anthropologie" "sociologie"
## [7] "staps" "économie"
## [9] "sociologie" "sociologie"
## [11] "droit" "anthropologie"
## [13] "science politique" "sciences de l'education"
## [15] "mathématiques"
anais[6]
## [1] 1993
discipline[6]
## [1] "sociologie"
#### Exercice d'application 2 ----
# Créer deux vecteurs qui renseignent les catégories sociales des parents et afficher les cs de l'enquêté n°6
# Création des vecteurs psp et psm renseignant les catégories sociales du père et de la mère
# Les vecteurs correspondent aux variables psp et psm du fichier Excel
psp<-c("Employé", "Ouvrier", "Art comm chef", NA, "Cadre PIS", "Prof Int", NA, "Art comm chef", "Ouvrier", "Art comm chef", "Ouvrier", "Employé", "Art comm chef", "Cadre PIS", "Ouvrier")
psm<-c("Prof Int", "Sans activité", "Employée", NA, "Art comm cheffe", "Prof Int", "Prof Int", "Employée", "Employée", "Sans activité", "Employée", "Employée", "Sans activité", "Ouvrière", "Employée")
psp # Affichage du vecteur psp
## [1] "Employé" "Ouvrier" "Art comm chef" NA
## [5] "Cadre PIS" "Prof Int" NA "Art comm chef"
## [9] "Ouvrier" "Art comm chef" "Ouvrier" "Employé"
## [13] "Art comm chef" "Cadre PIS" "Ouvrier"
psm # Affichage du vecteur psm
## [1] "Prof Int" "Sans activité" "Employée" NA
## [5] "Art comm cheffe" "Prof Int" "Prof Int" "Employée"
## [9] "Employée" "Sans activité" "Employée" "Employée"
## [13] "Sans activité" "Ouvrière" "Employée"
psp[6] # Affichage de la CS du père de l'enquêté·e n°6
## [1] "Prof Int"
psp[6] # Affichage de la CS de la mère de l'enquêté·e n°6
## [1] "Prof Int"
### 2.3. Les fonctions ----
#### Longueur, valeurs minimale et maximale ----
# length : longueur ou taille d'une série
length(discipline)# Taille de la série discipline
## [1] 15
length(ages)# Taille de la série ages
## [1] 15
length(anais) # Taille de la série annais
## [1] 15
# unique : valeurs uniques d'une série
unique(ages) # Affichage des valeurs de la série ages sans doublons
## [1] 23 22 30 24 25 26 39 28 NA 27 31 36
unique(anais) # Affichage des valeurs de la série annais sans doublons
## [1] 1996 1997 1989 1995 1994 1993 1980 1991 NA 1992 1988 1983
unique(discipline) # Affichage des valeurs de la s?rie discipline sans doublons
## [1] "sociologie" "science politique"
## [3] "droit" "info-comm"
## [5] "anthropologie" "staps"
## [7] "économie" "sciences de l'education"
## [9] "mathématiques"
# min
min(ages, na.rm=TRUE) # Valeur minimale de la série ages
## [1] 22
min(anais, na.rm=TRUE) # Valeur minimale de la série anais
## [1] 1980
min(discipline) # Valeur minimale de la série discipline (par ordre alphabétique)
## [1] "anthropologie"
# max
max(ages, na.rm=TRUE) # Valeur maximale de la série ages
## [1] 39
max(anais, na.rm=TRUE) # Valeur maximale de la série anais
## [1] 1997
max(discipline) # Valeur maximale de la série discipline (par ordre alphabétique)
## [1] "staps"
# range
range(ages, na.rm=TRUE) # Valeurs minimale et maximale de la série ages
## [1] 22 39
range(anais, na.rm=TRUE)# Valeurs minimale et maximale de la série anais
## [1] 1980 1997
range(discipline)# Valeurs minimale et maximale de la série discipline
## [1] "anthropologie" "staps"
#### Moyenne, médiane ----
# mean : moyenne
mean(ages) # Calcul de l'âge moyen sans l'argument na.rm
## [1] NA
mean(anais) # Calcul de l'année de naissance moyenne sans l'argument na.rm
## [1] NA
mean(ages, na.rm=TRUE) # Calcul de l'âge moyen avec l'argument na.rm
## [1] 27.28571
mean(anais,na.rm=TRUE) # Calcul de l'année de naissance moyenne avec l'argument na.rm
## [1] 1991.714
#median : médiane
median(ages, na.rm=TRUE) # Calcul de l'âge médian avec l'argument na.rm
## [1] 26
median(anais,na.rm=TRUE) # Calcul de l'année de naissance médiane avec l'argument na.rm
## [1] 1993
#### Fonctions synthétiques ----
# str : résumé d'informations sur un vecteur (classe, longueur, premières valeurs)
str(ages)
## num [1:15] 23 22 30 24 25 26 39 28 NA 22 ...
str(discipline)
## chr [1:15] "sociologie" "science politique" "droit" "info-comm" ...
#summary : principaux indicateurs de tendance centrale et de dispersion d'un vecteur numérique
summary(ages, na.rm=TRUE)
## Min. 1st Qu. Median Mean 3rd Qu. Max. NAs
## 22.00 23.25 26.00 27.29 29.50 39.00 1
#### Aide sur une fonction ----
help(mean)# Affichage de l'aide sur la fontion mean
## démarrage du serveur d'aide httpd ... fini
#### Exercice d'application 3 ----
# A partir des données du fichier excel BDD_FS, créer un vecteur qui renseigne sur la moyenne obtenue au bac (variable bac)
# Calculer les principaux indicateurs statistiques permettant de décrire cette série : minimum, maximum, moyenne, écart-type (dont vous trouverez la fonction en vous aidant de la fonction help)
# Afficher un résumé des principaux indicateurs de la série
bac<-c(12,15,11,NA,17,13,NA,10,14,12,11,13,10,12,10) # Création du vecteur bac
range(bac,na.rm=TRUE) # min et max de la série
## [1] 10 17
mean(bac,na.rm=TRUE) # moyenne de la série
## [1] 12.30769
sqrt(var(bac,na.rm=TRUE)) # racine carrée de la variance = écart-type de la série
## [1] 2.097006
sd(bac,na.rm=TRUE) # écart-type direct de la série
## [1] 2.097006
summary(bac,na.rm=TRUE) # résumé des principaux indicateurs de la série
## Min. 1st Qu. Median Mean 3rd Qu. Max. NAs
## 10.00 11.00 12.00 12.31 13.00 17.00 2
## 3. Organiser ses fichiers ----
### 3.1. Le projet ----
### 3.2. Les scripts ----
## 4. Les packages/extensions ----
# Affichage des packages déjà installés : onglet packages
# install.packages("questionr") # Installation de l'extension questionr (une seule fois, sauf si vous désinstallez et réinstallez R et RStudio)
library (questionr) # Chargement de l'extension questionr (à chaque fois que vous utilisez le script)
# l'appel des extensions devra désormais se faire, à chaque début de script.