1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Ecart_type <- rep(c(Sd_Setosa, Sd_Versicolor, Sd_Virginica), each=50)
Ecart_type
## Ajout d'une colonne avec les écarts-type
Tab_Complet <- mutate(iris, Ecart_type) %>%
select(Ecart_type, Sepal.Length, Species)
Tab_Complet
library(ggplot2)
ggplot(Tab_Complet, aes(x = Species, y = Sepal.Length)) +
labs (x="Espèce", y="Longueur", title="Liaison entre espèce et longueur de sépale") +
geom_bar(stat="identity")
#geom_errorbar(aes(ymin=Sepal.Length-Ecart_type,ymax=Sepal.Length+Ecart_type)) |