On Fri, 3 May 2002 drew.tyre@csiro.au wrote:> Full_Name: Drew Tyre > Version: 1.4.0 > OS: Win 2000 > Submission from: (NULL) (140.253.74.225) > > > When creating a rather complex plot, the resulting figures 'shrink' when either > copied to the clipboard or saved as a metafile using the GUI menu. Also saving > as postscript or pdf causes the same problem, as does printing the figure > directly from the graphics window. Only the figure areas shrink, the contentsThat says the problem is in the replaying of graphics and not to do with metafiles. (But I've shorten the subject for the sake of R-bugs.) 1.4.0 was the first version with new graphics drivers, and we would first need to know if this is still present in 1.5.0, and also if specific to Windows. Could you test 1.5.0 once that becomes available, and let us know? If the problem is still present, it would help if we had a complete reproducible example on a web site somewhere. -- Brian D. Ripley, ripley@stats.ox.ac.uk Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ University of Oxford, Tel: +44 1865 272861 (self) 1 South Parks Road, +44 1865 272860 (secr) Oxford OX1 3TG, UK Fax: +44 1865 272595 -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 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 _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._