iris

pairs(iris)
pairs(iris, main="Edgar Anderson's Iris Data", pch=21, bg = c("red", "green3","blue")[iris$Species])

iris$Sepal.Length

attach(iris)           # avagvwrizei ta ovomata twv stnlwv

hist(Sepal.Length,col=6)
hist(Sepal.Length,col=6,nclass=20)

boxplot(Sepal.Length)
boxplot(Sepal.Length,col="grey",horizontal=TRUE)

summary(Sepal.Length)
boxplot(Sepal.Length)


summary(Sepal.Length[Species=="setosa"])
summary(Sepal.Length[Species=="versicolor"])
summary(Sepal.Length[Species=="virginica"])
boxplot(Sepal.Length~Species)


iris$Species      # n metablntn pou afora to eidos tou futou	
table(iris$Species)

pie(table(iris$Species),col=c("red","green3","blue"))
barplot(table(iris$Species))

hist(Petal.Length,col=6,nclass=15)
boxplot(Petal.Length~Species,col=c("red","green3","blue"))

summary(Petal.Length)
summary(Petal.Length[Species=="setosa"])
summary(Petal.Length[Species=="versicolor"])
summary(Petal.Length[Species=="virginica"])