R/ex_groups.R

In PaoloDalena/tastypie: Easy Pie Charts

ex_groups <- function(n){
  if(n == 2){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(70, 30))
  }
  else if(n == 3){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(60, 25, 15))
  }
  else if(n == 4){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(40, 25, 20, 15))
  }
  else if(n == 5){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(30, 25, 18, 15, 10))
  }
  else if(n == 6){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(22, 25, 11, 15, 10, 8))
  }
  else if(n == 7){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(43, 22, 30, 25, 20, 15, 10))
  }
  else if(n == 8){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(30, 25, 20, 15, 10, 12, 32, 19))
  }
  else if(n == 9){
    ex <- data.frame("group" = LETTERS[1:n], "value" = c(30, 25, 20, 15, 10, 32, 42, 18, 49))
  }
  else{
    stop("The argument should be a number from 2 to 9.")
  }
}