Ed Berry eddjberry

## row_rep.R
row_rep <- function(df, n) {
  df[rep(1:nrow(df), times = n),]
}

## reverse-categorical-axis-ggplot2.r
scale_x_discrete(limits = rev(levels(the_factor)))
	row_rep <- function(df, n) {
	df[rep(1:nrow(df), times = n),]
	}