modif allure graphiques

parent 0884468c
......@@ -19,10 +19,12 @@ data <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7
## Courbe
```{r}
plot(data, type = "l", col = "blue", ylim = c(0,25), xlab="", ylab="")
plot(data, type = "l", col = "blue", panel.first = grid(), ylim = c(0,25), xlab="", ylab="")
# panel.first = grid() permet d'ajouter un grillage en fond
```
## Histogramme
```{r}
hist(data, col = "blue", ylim = c(0,25), xlim = c(0,25), xlab="", ylab="", main="")
hist(data, col = "blue", panel.first = grid(), ylim = c(0,25), xlim = c(0,25), xlab="", ylab="", main="")
# + box(col="black") # encadre le graphique mais une erreur apparait
```
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment