# Graphs ggplot2 (qplot shortcut)
# Malhotra (2010), Table 15.1

install.packages("ggplot2")

library(ggplot2)

attach(Table15.1)

# Bar Plot

ggplot(Table15.1, aes(x = factor(sex))) + geom_bar(fill="orange") 

qplot(factor(sex), data=Table15.1)


# Pie Chart

Table15.1$sex<-factor(sex, labels=c("male","female"))

T1<-data.frame(table(Table15.1$sex))
names(T1)[names(T1) == c("Var1", "Freq" )]<-c("Gender", "Freq.Gender")


bp<-ggplot(T1, aes(x="", y=Freq.Gender, fill=Gender)) + geom_bar(width=1,stat="identity")
bp


pie<-bp + coord_polar("y", start=0) + geom_text(aes(label = paste0(Gender, " ", Freq.Gender/sum(Freq.Gender)*100, "%")), position = position_stack(vjust = 0.5))
pie<-pie + labs(x = NULL, y = NULL, fill = NULL, title = "Gender")
pie


bp1<-ggplot(T1, aes(x="", y=round(Freq.Gender/sum(Freq.Gender)*100), fill=Gender)) + geom_bar(width=1,stat="identity")
bp1

pie1<-bp1 + coord_polar("y", start=0) + geom_text(aes(label = paste0(Gender, " ", Freq.Gender/sum(Freq.Gender)*100, "%")), position = position_stack(vjust = 0.5))
pie1