---
title: "Calculs simples sur un jeu de données personnelles"
author: "Hilaire MARTIN"
date: "17/02/2023"
output:
  html_document: default
  pdf_document: default
---



```{r setup, include=TRUE}
knitr::opts_chunk$set(echo = TRUE)
```
## DONNEES PLUVIOMETRIES

Il ya quelques temps j'ai mis un pluviomètre dans le jardin. L'idée est de voir à quoi ça ressemble
une fois mis en forme.


```{r chargement, include=TRUE}
toto <- read.csv("C:/Users/hilaire.martin/mooc-rr/module2/exo4/PRECIPITATIONS.csv", header = TRUE, sep = ';', dec = ",")
#as.data.frame(toto)
summary(toto)
head(toto)

```

```{r graphe, include=TRUE}
library(ggplot2)
ggplot(toto, aes(x=MOIS, y=MM), width=0.2, fill= as.factor (MOIS)) + 
  geom_bar(stat = "identity")+
  facet_grid(ANNEE~MOIS)

```