The Department of Sociology and Athletics both have a larger range of salaries as demonstrated by the length of the whiskers. The department salaries skew to the right side due to the number of employees that earn salaries greater than the median. The Athletic department is the only department with maximum outliers, whereas the Department of Economics and Intl Business has 1 salary that is a minimum outlier. The Department of Economics and Intl Business also has the highest median at $97,042.56,but the smallest Inerquartile Range (IQR). This could be explained by the professors salaries being based on a competitive market value to compete with the private sector.

When using the formula provided in the PowerPoint for the box plots in R Studio I came up with one outlier for the Department of Economics and Intl Business, which is the administrative assistant.This is also seen in the excel file Long Part Homework Final. The Salary of the Assistant to the Chair is $14,880 outside of the minimum range.

 library(readr, quietly = TRUE) 
salaries = read_csv(file = "C:\\Users\\USER\\Desktop\\Sam Houston Salaries Subset.csv")
names(salaries) = tolower(names(salaries))
hist(salaries$annual_salary)

library(ggplot2)
library(ggplot2)
options(scipen=100)
ggplot(salaries, mapping = aes(x=home_organization_desc, y =annual_salary))+
geom_boxplot()+
ggtitle(label = "Distribution of Salaries by Department",
subtitle = "Selected Sam Houston Departments")+
xlab(label="Home Organizations")+
ylab(label = "Annual Salary")+
coord_flip()