From Drew.Tyre@csiro.au  Fri May 10 06:01:00 2002
From: Drew.Tyre@csiro.au (Drew.Tyre@csiro.au)
Date: Fri, 10 May 2002 07:01:00 +0200 (MET DST)
Subject: [Rd] copy or save  of plots (PR#1507)
Message-ID: <200205100501.HAA24965@pubhealth.ku.dk>

Hi,

I have now created the plot under 1.5.0, and the same problem reoccurs. I
have found a simpler code that produces the problem on my computer at least:

map.springs <- function(x, ...){
	plot(x$easting,x$northing,type="n",bty="n",
		axes=FALSE,xlab="",ylab="",...)
	filled <- x$occupied == 1
	points(x$easting[filled],x$northing[filled],
		pch=19,cex=log10(x$area[filled]))
	points(x$easting[!filled],x$northing[!filled],
		pch=21,cex=log10(x$area[!filled]))
	plot.limits <- par(c("xaxp","yaxp"))
	segments(plot.limits$xaxp[1],plot.limits$yaxp[2],
	plot.limits$xaxp[1]+100,plot.limits$yaxp[2],lwd=3)
	
text(x=plot.limits$xaxp[1]+50,y=plot.limits$yaxp[2]-5,adj=c(0.5,1),labels=c(
"100 m"))
}

a.spring <-
data.frame(easting=runif(20)*1000,northing=runif(20)*1000,occupied=rbinom(20
,1,0.5),area=runif(20)*10000)

map.springs(a.spring)
mtext("A",side=2,cex=2,las=2,at=par("yaxp")[2])



Drew Tyre
CSIRO Marine Research Drew.Tyre@csiro.au
PO Box 120		 ph: +61 (07) 3826 7263
Cleveland QLD 4163 fax:+61 (07) 3826 7222
Australia	http://www.marine.csiro.au



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


[Rd] copy or save of plots (PR#1507)
Drew.Tyre@csiro.au