Displaying 1 result from an estimated 1 matches for "ourlier_df".
2011 Jan 26
1
boxplot - code for labeling outliers - any suggestions for improvements?
...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 = txt_to_run))
# head(ourlier_df)
txt_to_run <- paste("formula(",y_name,"~", x_name,")")
formu <- eval(parse(text = txt_to_run))
boxdata <- boxplot(formu , data = DATA, plot = F)
boxdata_group_name <- boxdata$names[boxdata$group]
bo...