83 lines
2.7 KiB
R
83 lines
2.7 KiB
R
iris <- read.csv("iris.csv", sep=",", stringsAsFactors=TRUE)
|
|
|
|
## PARTIE 1
|
|
# 1.
|
|
names(iris)
|
|
# 2.
|
|
nrow(iris)
|
|
# 3.
|
|
nrow(iris)
|
|
head(iris, 15)
|
|
# 4.
|
|
class(iris$species)
|
|
levels(iris$species)
|
|
# 5.
|
|
summary(iris$species)
|
|
table(iris$species)
|
|
# 6.
|
|
pie(table(iris$species))
|
|
barplot(table(iris$species))
|
|
# 7.
|
|
summary(iris$petal.length)
|
|
# 8.
|
|
summary(iris$petal.width)
|
|
summary(iris$sepal.length)
|
|
summary(iris$sepal.width)
|
|
# 9.
|
|
par(mfrow=c(2,2))
|
|
hist(iris$petal.length,col=grey(0.6),main="Longueur des pétales")
|
|
hist(iris$petal.width,col=grey(0.6),main="Largeur des pétales")
|
|
ist(iris$sepal.length,col=grey(0.6),main="Longueur des sépales")
|
|
hist(iris$sepal.width,col=grey(0.6),main="Largeur des sépales")
|
|
|
|
## PARTIE 2
|
|
# 10.
|
|
plot(iris$petal.length, iris$petal.width,
|
|
xlab="Longueur du pétale", ylab="Largeur du pétale",
|
|
main="Nuage de points", pch=20)
|
|
# 11.
|
|
sunflowerplot(iris$petal.length, iris$petal.width,
|
|
xlab="Longueur du pétale", ylab="Largeur du pétale",
|
|
main="Nuage de points", pch=20)
|
|
|
|
# 12.
|
|
sunflowerplot(iris$petal.length, iris$sepal.length,
|
|
xlab="Longueur du pétale", ylab="Longueur du sépale",
|
|
main="Nuage de points", pch=20)
|
|
# 13.
|
|
boxplot(iris$petal.length ~iris$species,col=grey(0.6))
|
|
# 14.
|
|
boxplot(iris$sepal.length ~iris$species,col=grey(0.6))
|
|
# 15.
|
|
# Tracée des histogrammes des longueurs des pétales de l'ensemble des iris, des iris setosa, des iris versicolor et des iris virginica
|
|
par(mfrow=c(2,2))
|
|
br0=seq(0,8,le=20)
|
|
hist(iris$petal.length, main="Ensemble des 150 iris",
|
|
xlab="Longueur du pétale", br=br0)
|
|
hist(iris$petal.length[iris$species=="Setosa"], main="Setosa",
|
|
xlab="Longueur du pétale", br=br0)
|
|
hist(iris$petal.length[iris$species=="Versicolor"],
|
|
main="Versicolor", xlab="Longueur du pétale", br=br0)
|
|
hist(iris$petal.length[iris$species=="Virginica"],
|
|
main="Virginica", xlab="Longueur du pétale", br=br0)
|
|
|
|
#Tracé des nuages des points de la largeur du pétale en fonction de la longueur des pétales de l'ensemble des iris, des iris setosa, des iris versicolor et des iris virginica
|
|
par(mfrow=c(2,2))
|
|
plot(iris$petal.length, iris$petal.width,
|
|
xlab="Longueur du pétale", ylab="Largeur du pétale",
|
|
main="Nuage de points", pch=20)
|
|
plot(iris$petal.length[iris$species=="Setosa"],
|
|
iris$petal.Width[iris$species=="Setosa"],
|
|
xlim=c(1,6.9), ylim=c(0.1,2.5), xlab="",ylab="",
|
|
main="iris setosa", pch=20)
|
|
plot(iris$petal.length[iris$species=="Versicolor"],
|
|
iris$petal.width[iris$species=="Versicolor"],
|
|
xlim=c(1,6.9), ylim=c(0.1,2.5), xlab="", ylab="",
|
|
main="iris versicolor", pch=20)
|
|
plot(iris$petal.length[iris$species=="Virginica"],
|
|
iris$petal.width[iris$species=="Virginica"],
|
|
xlim=c(1,6.9), ylim=c(0.1,2.5), xlab="", ylab="",
|
|
main="iris virginica", pch=20)
|
|
|
|
pairs(iris[1:4], main = "Anderson's Iris Data -- 3 species",
|
|
pch = 21, bg = c("red", "green3", "blue")[unclass(iris$species)])
|