Displaying 1 result from an estimated 1 matches for "boxplot_range".
2011 Jan 26
1
boxplot - code for labeling outliers - any suggestions for improvements?
...liers leading to a clutter of text
(to this I have no idea how to systematically solve)
Best,
Tal
------------------------------
# the function
boxplot.add.outlier.text <- function(DATA, x_name, y_name, label_name)
{
boxplot.outlier.data <- function(xx, y_name)
{
y <- xx[,y_name]
boxplot_range <- range(boxplot.stats(y)$stats)
ss <- (y < boxplot_range[1]) | (y > boxplot_range[2])
return(xx[ss,])
}
require(plyr)
txt_to_run <- paste("ddply(DATA, .(",x_name,"), boxplot.outlier.data, y_name
= y_name)", sep = "")
ourlier_df <- eval(parse(text...