> a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
> tab <- as.table(table(a$sex,a$bq))     
> ptab <- round(100*prop.table(tab,1),2)
> ptab
   
     1  2
  1 25 75
  2 50 50