ANLY 512 - Problem Set 3

Vis 1

library(ggplot2)
library(ggthemes)

## Warning: package 'ggthemes' was built under R version 3.4.3

ggplot(mpg, aes(class)) + geom_bar(aes(fill = trans)) + scale_fill_discrete(name="Transmission")

knitr::opts_chunk$set(echo = TRUE)

Vis 2

ggplot(mpg) + geom_boxplot(aes(manufacturer,hwy))+theme_classic()+coord_flip()+ labs(y="Highway Fuel Efficiency(miles/gallon)", x="Vehicle Manufacturer")

knitr::opts_chunk$set(echo = TRUE)

Vis 3

ggplot(diamonds,aes(price,colour = cut, fill=cut))+labs(x="Diamond Price(USD)", y="Density")+ggtitle("Diamond Price Density")+geom_density(alpha=0.2)+theme_economist()

knitr::opts_chunk$set(echo = TRUE)

Vis 4

ggplot(iris,aes(Sepal.Length,Petal.Length))+labs(x="Iris Sepal Length",y="Iris Petal Length")+ggtitle("Relationship between Petal and Sepal Length")+geom_point()+geom_smooth(method="lm")+theme_minimal()

knitr::opts_chunk$set(echo = TRUE)

Vis 5

ggplot(iris,aes(Sepal.Length,Petal.Length, colour=Species))+geom_point()+geom_smooth(method = "lm", se=FALSE)+theme_pander()+theme(legend.position = "bottom")+ggtitle("Relationship between Petal and Sepal Length")+labs(x="Iris Sepal Length", y="Iris Petal Length", subtitle="Species level comparison")+windowsFonts("Times New Roman")

knitr::opts_chunk$set(echo = TRUE)