Mercurial > repos > guerler > charts
annotate boxplot.r @ 49:19dc8d7aa87b draft
Uploaded
| author | guerler |
|---|---|
| date | Thu, 15 May 2014 15:47:07 -0400 |
| parents | a3b34c760a79 |
| children | e10dbc437d8f |
| rev | line source |
|---|---|
| 2 | 1 wrapper <- function(table, columns, options) { |
| 2 | |
| 3 # initialize output list | |
| 4 l <- list() | |
| 5 | |
| 6 # loop through all columns | |
| 7 for (key in names(columns)) { | |
| 8 # load column data | |
| 9 column <- as.numeric(columns[key]) | |
| 10 column_data <- sapply( table[column], as.numeric ) | |
| 11 | |
| 12 # create hist data | |
| 13 data <- boxplot(column_data, plot=FALSE) | |
| 14 | |
| 15 # collect vectors in list | |
| 16 l <- append(l, list(data$stats)) | |
| 17 } | |
| 18 | |
| 19 # return | |
| 20 return (l) | |
| 21 } |