Mercurial > repos > guerler > charts
annotate boxplot.r @ 52:e10dbc437d8f draft
Uploaded
| author | guerler |
|---|---|
| date | Thu, 05 Jun 2014 13:37:37 -0400 |
| parents | a3b34c760a79 |
| children |
| 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]) | |
| 52 | 10 column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]]))) |
| 11 | |
| 2 | 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 } |