HisSl
geom_histogram(binwidth=0.2, color="black", aes(fill=Species)) +
theme(legend.position="none")+
ggtitle("Histogram of Sepal Length")
HistSw
geom_histogram(binwidth=0.2, color="black", aes(fill=Species)) +
theme(legend.position="none")+
ggtitle("Histogram of Sepal Width")
HistPl
geom_histogram(binwidth=0.2, color="black", aes(fill=Species)) +
theme(legend.position="none")+
ggtitle("Histogram of Petal Length")
HistPw
geom_histogram(binwidth=0.2, color="black", aes(fill=Species)) +
theme(legend.position="bottom" )+
ggtitle("Histogram of Petal Width")
grid.arrange(HisSl,HistSw,HistPl,HistPw,nrow = 2,top = textGrob("Iris Frequency Histogram",gp=gpar(fontsize=15)))