gen<-c("Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female")
summary(gen)
## Length Class Mode
## 72 character character
gen<-factor(gen)
table(gen)
## gen
## Female Male
## 28 44
barplot(table(gen), col=c("blue","yellow"),ylab="Total #", xlab="Gender", main="Males vs Females")
abline(h=(seq(5,40,5)), col="black", lty="dotted")
pie(table(gen), col=c("blue","yellow"))
pro<-c("Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","Statistics","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Lit","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Rhetoric","English Linquistics","English Linquistics","English Linquistics","English Linquistics","English Linquistics","English Linquistics")
summary(pro)
## Length Class Mode
## 71 character character
pro<-factor(pro)
table(pro)
## pro
## English Linquistics English Lit English Rhetoric
## 6 14 14
## Statistics
## 37
barplot(table(pro), col=c("green","orange","red","purple"),ylab="Total #", xlab="Departments", main="# of Professors in Each Department")
abline(h=(seq(5,40,5)), col="black", lty="dotted")
pie(table(pro), col=c("blue","yellow","green","orange","purple","red","grey"),main="# of Professors in Each Department")
t<-c("Adj Instructor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","Assistant Professor","AssocProfCourtesy","Distinguished Professor","Distinguished Professor","Full Prof Courtesy","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Full Professor","Lecturer","Lecturer","University Professor","University Professor","University Professor","University Professor","University Professor","University Professor","University Professor")
summary(t)
## Length Class Mode
## 72 character character
t<-factor(t)
table(t)
## t
## Adj Instructor Assistant Professor AssocProfCourtesy
## 1 37 1
## Distinguished Professor Full Prof Courtesy Full Professor
## 2 1 21
## Lecturer University Professor
## 2 7
barplot(table(t), col=c("blue","yellow","green","orange","purple","red","grey"),ylab="Total #", xlab="Title", main="Different Types of Professors")
abline(h=(seq(5,40,5)), col="black", lty="dotted")
pie(table(t), col=c("blue","yellow","green","orange","purple","red","grey","brown"),main="Different Types of Professors")
school<-c("SUNY, Stony Brook","Stanford University","University of Minnesota","University of California, Los Angeles","The Weizmann Institute of Science, Israel","University of North Carolina, Chapel Hill","Iowa State University","Australian National University, Australia","Rutgers University","Cornell University","University of California, Los Angeles","University of Illinois at Urbana-Champaign","University of Dortmund, Germany","University of North Carolina, Chapel Hill","Augsburg University, Germany","University of Missouri, Columbia","Iowa State University","University of Minnesota","Cornell University","Iowa State University","University of Washington","Kansas State University","Union College","Virginia Polytechnic Institute","Iowa State University","Iowa State University","Iowa State University","Iowa State University","Iowa State University","University of Florida","University of Wisconsin-Madison","University of Wisconsin-Madison","University of Connecticut","Michigan State University","Cornell University","Duke University","University of Michigan, Ann Arbor","Cornell University","University of Oregon","University of Maryland","Indiana University","The University of Iowa","University of Oregon","Columbia University","University of North Carolina, Chapel Hill","University of Minnesota","Oklahoma State University","University of Pennsylvania","Iowa State University","University of Wisconsin-Madison","Indiana University","University of Illinois at Urbana-Champaign","University of North Carolina, Chapel Hill","University of Minnesota","Rensselaer Polytechnic Institute","University of Illinois at Urbana-Champaign","University of Illinois at Urbana-Champaign","Washington State University","University of Illinois at Urbana-Champaign","Arizona State University","University of Oklahoma","New Mexico State University")
summary(school)
## Length Class Mode
## 62 character character
school<-factor(school)
table(school)
## school
## Arizona State University
## 1
## Augsburg University, Germany
## 1
## Australian National University, Australia
## 1
## Columbia University
## 1
## Cornell University
## 4
## Duke University
## 1
## Indiana University
## 2
## Iowa State University
## 9
## Kansas State University
## 1
## Michigan State University
## 1
## New Mexico State University
## 1
## Oklahoma State University
## 1
## Rensselaer Polytechnic Institute
## 1
## Rutgers University
## 1
## Stanford University
## 1
## SUNY, Stony Brook
## 1
## The University of Iowa
## 1
## The Weizmann Institute of Science, Israel
## 1
## Union College
## 1
## University of North Carolina, Chapel Hill
## 4
## University of California, Los Angeles
## 2
## University of Connecticut
## 1
## University of Dortmund, Germany
## 1
## University of Florida
## 1
## University of Illinois at Urbana-Champaign
## 5
## University of Maryland
## 1
## University of Michigan, Ann Arbor
## 1
## University of Minnesota
## 4
## University of Missouri, Columbia
## 1
## University of Oklahoma
## 1
## University of Oregon
## 2
## University of Pennsylvania
## 1
## University of Washington
## 1
## University of Wisconsin-Madison
## 3
## Virginia Polytechnic Institute
## 1
## Washington State University
## 1
barplot(table(school), col=c("green","orange","red","purple"),ylab="Total #", xlab="Schools", main="Different Schools Professors Got PhD From")
abline(h=(seq(0,10,1)), col="black", lty="dotted")
pie(table(school), col=c("blue","yellow","green","orange","purple","red","grey","brown","lightblue"),main="Different Schools Professors Got PhD From")
sal=c(96238,140649,68316,160177,175599,91000,161333,94611,130133,162600,95147,105238,79304,108943,102036,145782,116667,174533,106087,152201,125803,73281,196955,143089,175064,95667,180000,67757,163439,86667,114876,92920,109348,124768,44318,122500,86529,104000,34759,178798,65649,82423,103584,64603,65237,92344,64864,77896,60507,58889,57778,85380,67641,59785,71378,21268,69913,77896,56849,80697,100828,75797,86126,82610,85018,56200,88571,80489,70000,63376,10115,37533)
barplot(sal,col="yellow",ylab= "Salary(in $)",main=" Various Salaries for Professors at University")
abline(h=(seq(0,200000,10000)), col="grey", lty="dotted")
