# Load dataset & workspace
#==============================================
# Set working directory
setwd("~/Documents/Classes/Year 5/Fall 2019/Visual Analytics/Moldue 7")

#MT Cars is included in R
head(mtcars)
##                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
## Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
## Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
## Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
## Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
## Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
# Breakout Data By Cylinder
#==============================================
#Sort by cyl and break into individual dataframes
cyl4 <- mtcars[mtcars$cyl == 4, ]
cyl6 <- mtcars[mtcars$cyl == 6, ]
cyl8 <- mtcars[mtcars$cyl == 8, ]


# Individual Box Plots
#==============================================
#MPG Boxplot
par(mfrow = c(3,1))
boxplot(cyl4$mpg, horizontal = TRUE, main = "Vehicle MPG Rating")
boxplot(cyl6$mpg, horizontal = TRUE, main = "Vehicle MPG Rating")
boxplot(cyl8$mpg, horizontal = TRUE, main = "Vehicle MPG Rating")

# Put them together
#==============================================
par(mfrow = c(1,1))
boxplot(cyl4$mpg, cyl6$mpg, cyl8$mpg, horizontal = TRUE, main = "Vehicle MPG Rating")

# Add flair & Labels
#==============================================
boxplot(cyl8$mpg, cyl6$mpg, cyl4$mpg, horizontal = TRUE, main = "Vehicle MPG Rating",
        xlab = "MPG",
        ylab = "Cylinders",
        names = c("Eight", "Six", "Four"),
        col = c("Red", "Orange", "Yellow"))