Mercurial > repos > guerler > charts

comparison boxplot.r @ 52:e10dbc437d8f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author guerler
date Thu, 05 Jun 2014 13:37:37 -0400
parents a3b34c760a79
children
comparison
equal deleted inserted replaced
51:bfd966f30073 52:e10dbc437d8f
5 5
6 # loop through all columns 6 # loop through all columns
7 for (key in names(columns)) { 7 for (key in names(columns)) {
8 # load column data 8 # load column data
9 column <- as.numeric(columns[key]) 9 column <- as.numeric(columns[key])
10 column_data <- sapply( table[column], as.numeric ) 10 column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
11 11
12 # create hist data 12 # create hist data
13 data <- boxplot(column_data, plot=FALSE) 13 data <- boxplot(column_data, plot=FALSE)
14 14
15 # collect vectors in list 15 # collect vectors in list
16 l <- append(l, list(data$stats)) 16 l <- append(l, list(data$stats))