On 01/28/2011 07:57 AM, Greg Snow wrote:
Try:library(TeachingDemos) plot(Sepal.Length~Sepal.Width, data=iris) tmp.y<- iris$Sepal.Length for( i in unique(iris$Sepal.Width) ) { tmp<- iris$Sepal.Width == i tmp.y[ tmp ]<- spread.labs( tmp.y[tmp], .6*strheight('A'), maxiter=1000 ) } # optional with(iris, segments(Sepal.Width, Sepal.Length, Sepal.Width+0.025, tmp.y) ) with(iris, text(Sepal.Width+0.05, tmp.y, seq_along(tmp.y), cex=.5 ) ) There is also thigmophobe.labels in the plotrix package which is simpler and works well for some plots
Alas, I tried thigmophobe.labels and there are just too many points. The best I could do was this: irisxy<-cluster.overplot(iris$Sepal.Width,iris$Sepal.Length) plot(irisxy) text(irisxy$x,irisxy$y-0.04,labels=1:150,cex=0.5) which, sad to say, ain't too good. Jim ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
