#+TITLE:  Améliorer son journal de bord
#+AUTHOR: Antoine RICHARD
#+DATE:   10/04/2020
#+LANGUAGE: fr
# #+PROPERTY: header-args :eval never-export

#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="http://www.pirilampo.org/styles/readtheorg/css/htmlize.css"/>
#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="http://www.pirilampo.org/styles/readtheorg/css/readtheorg.css"/>
#+HTML_HEAD: <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
#+HTML_HEAD: <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js"></script>


* Données récoltées

Tout d'abord chargeons les données collectées durant ce mooc.

#+begin_src R :results output :session *R* :exports both
data <- read.csv("data.csv", sep=";", header=TRUE)
data$date <- as.Date(data$date, format="%Y-%m-%d")
summary(data)
#+end_src

#+RESULTS:
#+begin_example

      date              t_morning      t_afternoon   t_evening       rain_risk
 Min.   :2020-04-03   Min.   :5.000   Min.   :16   Min.   :11.00   Min.   :0  
 1st Qu.:2020-04-06   1st Qu.:5.500   1st Qu.:20   1st Qu.:14.00   1st Qu.:0  
 Median :2020-04-10   Median :6.000   Median :24   Median :17.00   Median :0  
 Mean   :2020-04-08   Mean   :6.667   Mean   :22   Mean   :16.33   Mean   :0  
 3rd Qu.:2020-04-11   3rd Qu.:7.500   3rd Qu.:25   3rd Qu.:19.00   3rd Qu.:0  
 Max.   :2020-04-13   Max.   :9.000   Max.   :26   Max.   :21.00   Max.   :0  
   wind_speed          IQA       
 Min.   : 5.000   Min.   :25.00  
 1st Qu.: 7.500   1st Qu.:33.50  
 Median :10.000   Median :42.00  
 Mean   : 8.333   Mean   :39.33  
 3rd Qu.:10.000   3rd Qu.:46.50  
 Max.   :10.000   Max.   :51.00
#+end_example

** Temporalité des collectes
   
 Analysons le nombre de données collectées par jour

 #+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* 
hist(data$date, col="blue", breaks=30)
 #+end_src

 #+RESULTS:
 [[file:/tmp/babel-gVAqEf/figureP0VUCp.png]]

** Évolutions des données

 Analysons l'évolution des températures

 #+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* 
plot(data$t_morning ~ data$date, type="l", col="blue", ylim=c(0.0,40.0), xlab="date", ylab="Temperature (°C)")
lines(data$t_afternoon ~ data$date, col="red")
lines(data$t_evening ~ data$date, col="green")
legend(1,40,legend=c("Morning","Afternoon","Evening"),col=c("blue","red","green"),lty=1)
 #+end_src

 #+RESULTS:
 [[file:/tmp/babel-KTKdwl/figureHNgB2t.png]]


 Du risque d'averse:

 #+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* 
plot(data$rain_risk ~ data$date, type="l", col="blue", xlab="date", ylab="Rain Risk (%)")
 #+end_src

 #+RESULTS:
 [[file:/tmp/babel-KTKdwl/figurebDo7XU.png]]

 De la vitesse du vent:

 #+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* 
plot(data$wind ~ data$date, type="l", col="blue", xlab="date", ylab="Wind Speed (km/h)")
 #+end_src

 #+RESULTS:
 [[file:/tmp/babel-6G788d/figureCLB4jQ.png]]

 De l'Indice de qualité de l'air:

 #+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* 
plot(data$IQA ~ data$date, type="l", col="blue", xlab="date", ylab="Air Quality")
 #+end_src

 #+RESULTS:
 [[file:/tmp/babel-KTKdwl/figureDFXrlW.png]]