R/value.split.R

In alemiani/explora: Explore and Visualize Data

value.split <- function(x, value,
         low.factor = '', high.factor = '',
         split.mode = c('minor', 'minor.equal', 'major.equal')) {
  name <- NA
  if(missing(split.mode)) {
    name[x <= 0] <- low.factor
    name[x > 0] <- high.factor
  } else
    if(split.mode == 'minor.equal') {
      name[x <= 0] <- low.factor
      name[x > 0] <- high.factor
    } else
      if(split.mode == 'minor') {
        name[x < 0] <- low.factor
        name[x > 0] <- high.factor
      } else {
        name[x < 0] <- low.factor
        name[x >= 0] <- high.factor
      }
  name <- as.factor(name)
}