data <- data.frame(sex=c("female","male","male"),
race = c("black","black","white"), y = c(.5,.4,.1), x = c(32,40,53))
rectangularize(data, by=c(sex,race))
rectangularize(data, by=c(sex,race), fill=0)
Run the code above in your browser using DataLab