assignment1.R

#Assignment1 Graphs for Diana Kelkenberg
FacultyData<-`C1_Faculty.(1).cleaned.version` <- read.csv("C:/Users/Diana/Desktop/Stat Methods-Fall 2015/R-Files/C1_Faculty (1)-cleaned version.csv")
View(FacultyData)
x<-FacultyData$PhD.graduated.year
y<-FacultyData$Salary

library(ggplot2)
qplot(x,y,main="Faculty Data",xlab="Year Graduated with PhD",ylab="Salary")

## Warning: Removed 17 rows containing missing values (geom_point).

colors<-c("violet","violet","violet","blue","blue","green","violet","violet","green","violet")
hist(FacultyData$Salary,main="Histogram of Faculty Salary",xlab="Salary",col=colors)

mytable<-table(FacultyData$Dept)
lbls<-paste(names(mytable),"\n",mytable,sep="")
pie(mytable,col=rainbow(length(lbls)),main="Pie Chart of Departments")