R multiple Grid substituitions.

multiple_gsub.R

mgsub <- function(pattern, replacement, x) {
  if (length(pattern)!=length(replacement)) {
    stop("pattern and replacement do not have the same length.")
  }
  result <- x
  for (i in 1:length(pattern)) {
    result <- gsub(pattern[i], replacement[i], result)
  }
  result
}

domain_dict <- c('Management' = 'mgmt', 'University' = 'Univ',
          'System' = 'sys')

#Usage similar to gsub
df$b <-  mgsub(names(domain_dict), domain_dict, df$a)
df <- data.frame(a=c("Management asdf", "asdf University"))