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"),ylim = c(0, 50),ylab="Total #", xlab="Gender", main="Males vs Females")
abline(h=(seq(5,50,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"),ylim = c(0, 40),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("green","orange","red","purple"),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","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","Distinguished Professor","Distinguished Professor","AssocProfCourtesy","Full Prof Courtesy")
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
par(mar=c(4,4,1.3,0))
par(barplot(table(t), legend.text = c("Adj Instructor", "Assistant Professor","AssocProfCourtesy","Distinguished Professor","Full Prof Courtesy","Full Professor","Lecturer","University Professor"),args.legend = list(x = "topright",text.font = 10),axisnames=FALSE, col=c("blue","yellow","green","orange","purple","red","grey","pink"),ylab="Total #", xlab="Title", main="Different Types of Professors",ylim = c(0, 40),cex.names = 0.75))
## NULL
abline(h=(seq(5,40,5)), col="lightgray", lty="dotted")
pie(table(t), col=c("blue","yellow","green","orange","purple","red","grey","pink"),main="Different Types of Professors")
school<-c("Stanford University","University of Minnesota","University of California, Los Angeles","University of North Carolina, Chapel Hill","Iowa State University","Rutgers University","Cornell University","University of California, Los Angeles","University of Illinois at Urbana-Champaign","University of North Carolina, Chapel Hill","University of Missouri, Columbia","Iowa State University","University of Minnesota","Cornell University","Iowa State University","Iowa State University","Iowa State University","Iowa State University","Iowa State University","Iowa State University","University of Wisconsin-Madison","University of Wisconsin-Madison","Cornell University","Duke University","Cornell University","University of Oregon","Indiana University","University of Oregon","University of North Carolina, Chapel Hill","University of Minnesota","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","University of Illinois at Urbana-Champaign","University of Illinois at Urbana-Champaign","University of Illinois at Urbana-Champaign")
summary(school)
## Length Class Mode
## 40 character character
school<-factor(school)
table(school)
## school
## Cornell University
## 4
## Duke University
## 1
## Indiana University
## 2
## Iowa State University
## 9
## Rutgers University
## 1
## Stanford University
## 1
## University of North Carolina, Chapel Hill
## 4
## University of California, Los Angeles
## 2
## University of Illinois at Urbana-Champaign
## 5
## University of Minnesota
## 4
## University of Missouri, Columbia
## 1
## University of Oregon
## 2
## University of Pennsylvania
## 1
## University of Wisconsin-Madison
## 3
par(mar=c(12,5,3,4))
barplot(table(school), col=c("blue","yellow","green","orange","purple","red","grey","brown","lightblue","pink"),cex.names=0.70,las=2,ylim = c(0, 10),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")
