TP N°0
Introduction à R
Objectif du TP :
- Savoir comment importer un fichier de données.
- Savoir comment afficher le contenu d’un fichier de données.
- Savoir comment afficher les données filtrées.
- Savoir comment récapituler des données et les afficher dans un tableau
- Savoir comment afficher un graphique.
Etapes du TP
1- Ensemble de données (le fichier [Link])
L’ensemble de données contient les informations sur les différents vols d’un aéroport.
2- Import des données des véhicules ([Link])
myDf<-[Link]("I:\\chemin du fichier/[Link]")
myDf est le nom de la variable qui contient les données du fichier [Link].
[Link]: l’instruction qui permet de charger les données stockées dans un fichier .csv "I:\\
chemin du fichier/[Link]" chemin complet et nom du fichier.
Remarque: commencer par introduire le nom du disque (ici “I”), ensuite ajouter “:\\”, puis
introduire le chemin en séparant les dossiers par slash “/”
3- Voir les 6 premières lignes (vols) : head(myDf)
4- Voir les 6 premières valeurs de l’attribut Origin : head(myDf$Origin)
5- Voir les 6 dernières valeurs de l’attribut Origin : tail(myDf$Origin)
6- Voir quelles sont les 6 premiers vols tels que Origin égal à "IND" :
head(myDf$Origin=="IND")
7- Total des vols ayant pour origine l’aéroport de la ville "IND" (Origin= "IND") :
sum(myDf$Origin=="IND")
8- Total des vols ayant pour destination l’aéroport de la ville "IND" (Dest= "IND") :
sum(myDf$Dest=="IND")
9- Total des vols ayant pour origine l’aéroport de la ville "ORD" (Origin= "ORD") :
sum(myDf$Origin=="ORD")
10- Total des vols ayant pour destination l’aéroport de la ville "ORD" (Dest= "ORD") :
sum(myDf$Dest=="ORD")
11- Affiche le help de la fonction AND : ??AND
12- Total des vols tels que Origine égale "IND" et Destination égale "ORD" :
sum(myDf$Origin=="IND" & myDf$Dest=="ORD")
13- Créer un sous-ensemble des vols ayant pour origine "IND" :
myIndyOrigins<-subset(myDf,myDf$Origin=="IND")
14- Créer un sous-ensemble des vols ayant pour destination "ORD" :
myIndyDest<-subset(myDf,myDf$Dest=="IND")
15- head(myIndyOrigins)
16- head(myIndyDest)
17- Créer une table qui récapitule le total des vols par mois : table(myIndyOrigins$Month)
18- Afficher le graphique de la table des vols par mois : plot(table(myIndyOrigins$Month))
19- sum(myDf$Origin=="TUP")
20- Donner la moyenne du nombre de vols ayant pour origine la ville "TUP" :
mean(myDf$Origin=="TUP")
21- myTUPOrigins<-subset(myDf, myDf$Origin=="TUP")
22- mean(myTUPOrigins$DepDelay)
23- Donner le total des vols dont l’heure de départ est inférieur à 6h00min sans tenir
compte les vols dont l’heure de départ n’est pas mentionnée ([Link]=TRUE) :
sum(myIndyOrigins$DepTime<600, [Link]=TRUE)
24- sum(myIndyOrigins$DepTime<1200, [Link]=TRUE)
25- sum(myIndyOrigins$DepTime<1800, [Link]=TRUE)
26- sum(myIndyOrigins$DepTime<2400, [Link]=TRUE)
27- Donner le nombre des vols dont l’heure de départ n’est pas mentionnéee (égale NA):
sum([Link](myIndyOrigins$DepTime))
28- sum(myDf$Dest=="LAX")
29- sum(myDf$Origin=="ATL" & myDf$Dest=="LAX")
30- myATLandLAX<-subset(myDf, myDf$Origin=="ATL" & myDf$Dest=="LAX")
31- sum(myATLandLAX$DepTime<1200, [Link]=TRUE)
32- table(myATLandLAX$DepTime)
33- plot(table(myATLandLAX$DepTime))