iris

summary(iris)
library(caret)
library(tidyr)
colnames(iris)<-c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species")
head(iris)
index<-createDataPartition(iris$Species,p=0.80,list = FALSE)
testset<-iris[-index,]
trainset<-iris[index,]

dim(trainset)
str(trainset)
summary(trainset)
levels(as.factor(trainset$Species))

hist(trainset$Sepal.Width)
plot(trainset$Petal.Length,trainset$Petal.Width)

par(mfrow=c(1,4))
  for (i in 1:4) {
    boxplot(trainset[,i],main=names(trainset[i]))
    
  }

library(ggplot2)
g<-ggplot(data=trainset,aes(x=Petal.Length,y=Petal.Width))

g <-g + 
  geom_point(aes(color=Species, shape=Species)) +
  xlab("Petal Length") +
  ylab("Petal Width") +
  ggtitle("Petal Length-Width")+
  geom_smooth(method="lm")

#h<-ggplot(data=trainset,aes(x=Sepal.Length,y=Sepal.Width))

#h <-h + 
#  geom_point(aes(color=Species, shape=Species)) +
#  xlab("Sepal Length") +
# ylab("Sepal Width") +
# ggtitle("Sepal Length-Width")+
# geom_smooth(method="lm")


box<-ggplot(data = trainset,aes(y=Sepal.Length,x=Species))+
  geom_boxplot(aes(fill=Species))+
  ggtitle("Iris Boxplot") +
  stat_summary(fun.y=mean, geom="point", shape=5, size=4) 

box1<-ggplot(data = trainset,aes(y=Sepal.Width,x=Species))+
  geom_boxplot(aes(fill=Species))+
  ggtitle("Iris Boxplot") +
  stat_summary(fun.y=mean, geom="point", shape=5, size=4) 

library(ggthemes)
histogram<-ggplot(data = iris,aes(x=Sepal.Width))+
  geom_histogram(binwidth = 0.2,color='black',aes(fill=Species))+
  xlab('Sepal Width')+
  ylab('frequency')+
  ggtitle('hist of sepal width')+
  theme_economist()

histogram1<-ggplot(data = iris,aes(x=Sepal.Length))+
  geom_histogram(binwidth = 0.2,color='black',aes(fill=Species))+
  xlab('Sepal Length')+
  ylab('frequency')+
  ggtitle('hist of sepal Length')+
  theme_economist()
 
facet<-ggplot(data = trainset,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+
  geom_point(aes(shape=Species,size=1.5))+
  geom_smooth(method = 'lm')+
  xlab('Sepal Length')+
  ylab('Sepal Width')+
  ggtitle('facetting')+
  theme_fivethirtyeight() +
  facet_grid(. ~ Species)