From 45de005e53dff0fa1eba7c32e2904f3c4df0154a Mon Sep 17 00:00:00 2001
From: Alexandre LUCAZEAU <mornik@gmail.com>
Date: Fri, 2 Apr 2021 08:32:12 +0200
Subject: [PATCH] ADD : section R

---
 posts/R/ventes_de_boissons_a_20.md | 72 ++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 posts/R/ventes_de_boissons_a_20.md

diff --git a/posts/R/ventes_de_boissons_a_20.md b/posts/R/ventes_de_boissons_a_20.md
new file mode 100644
index 0000000..8397520
--- /dev/null
+++ b/posts/R/ventes_de_boissons_a_20.md
@@ -0,0 +1,72 @@
+--- 
+title: "R"
+date: 2021-04-01T11:48:56+02:00 
+tags: 
+- R 
+categories : 
+- R 
+draft: true 
+description : "analyse des ventes"
+slug : "analyse des ventes"
+--- 
+
+# Analyse des ventes
+Dans une entreprise commerciale, il est souvent pertinent de suivre la vente d'une catégorie particulière.
+Ici nous allons nous intéresser à la vente des boissons à 20%
+
+## Le modèle de données
+Le fichier csv qui sert de support est comme suit :
+jour,date,total.TTC.10,total.TTC.20
+
+Les dates sont au format JJ/MM/AAAA
+Exemple de données :
+
+	1 jour,date,total TTC 10 %,total TTC 20 %
+	2 samedi,01/04/17,"458,5","7,6"
+	3 dimanche,02/04/17,"323,35",
+	4 lundi,03/04/17,,
+	5 mardi,04/04/17,176,
+	6 mercredi,05/04/17,"289,6","6,8"
+	7 jeudi,06/04/17,"329,5",
+
+Première étape : charger le fichier csv
+	''Database <- read.csv(file.choose(), header = TRUE, sep= ",", encoding="UTF-8")''
+	
+On vérifie la qualité du chargement :
+''Les entêtes'' 
+''> names(Database)''
+''[1] "jour"           "date"           "total.TTC.10.." "total.TTC.20.."''
+Le nombre de colonnes et le nombre de lignes :
+'''
+> dim(Database)                    
+[1] 365   4
+'''
+
+On vérifie les premières lignes :
+'''
+> head(Database)                   
+      jour     date total.TTC.10.. total.TTC.20..
+1   samedi 01/04/17          458,5            7,6
+2 dimanche 02/04/17         323,35               
+3    lundi 03/04/17                              
+4    mardi 04/04/17            176               
+5 mercredi 05/04/17          289,6            6,8
+6    jeudi 06/04/17          329,5
+'''
+               
+> 
+
+Sélectionner que les mardis :
+	''subset(Database, Database$jour %in% "mardi")''
+	
+
+===== Passer la colonne date au format YYYY-MM-DD =====
+
+install.packages('lubridate')
+library(lubridate)
+dmy(Database$date)
+
+install.packages("magrittr") # pour avoir accés à la fonction %>%
+library(magrittr)
+install.packages("dplyr") # pour avoir la fonction group_by
+library(dplyr)