Mercurial > repos > guerler > charts
annotate boxplot.r @ 45:b84a193361be draft
Uploaded
| author | guerler |
|---|---|
| date | Thu, 15 May 2014 15:15:21 -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 } |