How about the following, if you really want characters or just leave as factor i <- round(runif(10, 1, 4)) years <- as.character(factor(i, labels = c("Freshman", "Sophomore", "Junior", "Senior"))) HTH, ken