#VIS 1
library(ggplot2)
visual1 <- ggplot(mpg, aes(class,fill=trans)) + geom_bar()+guides(fill=guide_legend(title="Transmission"))
visual1

#VIS 2
Visual2 <-ggplot(data=mpg,aes(y=hwy,x=manufacturer))+ coord_flip()+ geom_boxplot()+ theme_classic()+ labs(x="Vehicle Manufacturer", y="Highway Fuel Efficiency(miles/gallon)")
Visual2

#VIS 3
library(ggthemes)
Visual3 <-ggplot(diamonds, aes(x=price,fill=cut,color=cut))+geom_density(alpha=0.2)+labs(x="Diamond Price(USD)", y="Density", title="Diamond Price Density")+ theme_economist() +scale_fill_hue()+scale_colour_hue()
Visual3 

#VIS 4
ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +  geom_point(position = "jitter")+ geom_smooth(method = "lm")+theme_minimal() + labs(title="Relationship between Petal and Sepal Length",  x="Iris Sepal Length",
y="Iris Petal Length")

# VIS 5
ggplot(iris,aes(x=Sepal.Length, y=Petal.Length,color=Species))+geom_point()+geom_smooth(method = lm,se=F)+labs(title="Relationship between Petal and Sepal Length",subtitle = "Species level comparison",x="Iris Sepal Length", y="Iris Petal Length")+theme_tufte()+theme(legend.position = "bottom")