On 15 Nov 2004 at 12:11, Adaikalavan Ramasamy wrote: > > Have you considered points() or lines() here ? You could simplify to > > > > plot(0,1000, type="n", xlim=c(0,1500), ylim=c(1000,9000), > > xlab="Area above Notch (mm)", main="Size Effect Speciments") > > > > n <- length(sfiles) > > > > for (i in 1:n) { > > data <- read.csv(paste("../data/",sfiles[i],sep="")) > > K <- data[,8] > > AN <- data[,3] * (data[,2] - data[,4]) > > > > points( AN, K, pch=i, col=i ) > > } > > > > legend( 1500, 9000, legend=paste("Data from", sfiles), pch=1:n, col=i:n)
Thanks this got me going on the right track. The code is a lot more concise as well :) Using locator() instead of x,y coord was suggested by Tom and that showed me where my problem was. The legend was being created just not where it would be visible. I found this bit of code in the R-help archives and it makes thing a lot more straightforward when positioning a legend ## set the range of the usr coordinates to x = (0,1), y = (0,1) opar <- par(no.readonly=TRUE) par(usr=c(0,1,0,1)) ## add the legend legend(0.75,0.9,sub(".csv","",nfiles), pch=1:length(nfiles), cex=0.7) Cheers -- Sean Richards C-fACS P.O. Box 84, Lincoln University, Canterbury, New Zealand Phone: (64)(3) 325-2811 ext 8636 Email: [EMAIL PROTECTED] ______________________________________________ [EMAIL PROTECTED] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html