Gender Parity.R

library(plyr)
library(reshape2)
library(ggplot2)

edx <- read.csv("data//HMXPC13_DI_v2_5-14-14.csv")
gender.table <- ddply(edx, .(final_cc_cname_DI, gender), summarise, number = length(userid_DI))
levels(gender.table$gender) <- c("none", "female", "male", "other")
gender.table <- dcast(gender.table, final_cc_cname_DI ~ gender, value.var="number")
gender.table$parity <- gender.table$female / gender.table$male

ggplot(gender.table, aes(x=parity, y=reorder(final_cc_cname_DI,parity))) + 
  geom_point(size=5, shape=15, color="orangered") + 
  xlab(expression(frac(Males, Females))) + 
  ylab("Country") 

Should the expression on the x label be frac(Females, Males) instead?