gistfile1.r

replace <- list(c("Academic / Professor", "Academic/Professor"),
                c("Lifelong learner", "Lifelong Learner"),
                c("Student (University/College)", "Student"))

for(e in replace) {
  db$usercat <- replacefact(db$usercat, e[1], e[2])}

replacefact <- function(x, y, z, ...) {
  x <- as.character(x)
  x[x == y] <- z
  as.factor(x)}