# Graphs
# Malhotra (2010), Table 15.1


attach(Table15.1)

# Bar Plot

barplot(table(sex), main="Gender Distribution", xlab="Observations", col="blue", names.arg=c("Male", "Female")) 

#barplot(table(Table15.1$sex), main="Gender Distribution", xlab="Observations", col="blue", names.arg=c("Male", "Female")) 


# Pie Chart

pie(table(sex),labels = c("Male", "Female"), col=c("orange", "blue"), main="Pie Chart of Gender") 

per<-prop.table(table(sex))
per[1]
per[2]

l<-c(paste("Male ", per[1]*100, "%", sep=""), paste("Female ", per[2]*100, "%", sep=""))

pie(table(sex),labels = l, col=c("orange", "blue"), main="Pie Chart of Gender") 


# 3D Pie

#install.packages("plotrix")

library(plotrix)

pie3D(table(sex), labels=l, explode=0.1, main="Pie Chart of Gender")