Nothing
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.")
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.