Displaying 1 result from an estimated 1 matches for "current_label".
2011 Jan 26
1
boxplot - code for labeling outliers - any suggestions for improvements?
...data$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]
temp_x <- boxdata_outlier_df[i,"x"]
temp_y <- boxdata_outlier_df[i,"y"]
text(temp_x, temp_y, current_label,pos=4)
}
list(boxdata_outlier_df = boxdata_outlier_df, ourlier_df=ourlier_df)
}
# example:
boxplot(decrease ~ treatment, data = Or...