Displaying 1 result from an estimated 1 matches for "boxdata_outlier_df".
2011 Jan 26
1
boxplot - code for labeling outliers - any suggestions for improvements?
...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]
boxdata_outlier_df <- data.frame(group = boxdata_group_name, y =
boxdata$out, x = boxdata$group)
for(i in seq_len(dim(boxdata_outlier_df)[1]))
{
ss <- (ourlier_df[,x_name] %in% boxdata_outlier_df[i,]$group) &
(ourlier_df[,y_name] %in% boxdata_outlier_df[i,]$y)
current_label <- ourlier_df[ss,label_name...