[R] short plots: lwd, margin and postscript behavior

[Cézar Freitas]

OK. I'll put the two forms and the results in two
attaches. There are two problems: the main is the
plots saved via postscript command have large lines
(lwd doesn't works). The other one is the big margins.


Thanks,
C.

PS: two attached pictures

#data
  par(fin=c(3,3))
  scores<-c(2.0, 0.0, 5.0, 5.0, 5.0, 2.0, 0.0, 5.0,
2.5, 4.0, 5.0, 0.0, 5.0, 0.0, 2.0, 5.0, 5.0, 2.0, 3.0,
3.0)
  q<-summary(scores)
  gra<-hist(scores, breaks=((0:11)/2-.2), plot=FALSE)
  yy<-ceiling(max(gra$counts)/10)*10
  yz<-yy/12

#picture saved via windows gui
  par(mai=rep(.2,4), lwd=.5, fin=c(3,3))

  hist(scores, breaks=((0:11)/2-.2), xlim=c(-1,6),
ylim=c(-yz,yy), main="scores", ylab="Freq",
xlab="math", cex.axis=.3, cex.main=.3, cex.sub=.3,
cex.lab=.3, mgp=c(1.5,.5,0), lwd=.5)
  boxplot(scores, horizontal=1, add=1, at=-2*yz/3,
boxwex=1.5*yz, bty="n", axes=FALSE)
  points(q[4], -2*yz/3, col=1, pch="+", cex=.5)


#picture saved via postscript command
  par(mai=rep(.2,4), lwd=.5, fin=c(3,3))
  postscript("test.ps", width=3, height=3,
horizontal=FALSE, family="Times", paper="special")

  hist(scores, breaks=((0:11)/2-.2), xlim=c(-1,6),
ylim=c(-yz,yy), main="scores", ylab="Freq",
xlab="math", cex.axis=.3, cex.main=.3, cex.sub=.3,
cex.lab=.3, mgp=c(1.5,.5,0), lwd=.5)
  boxplot(scores, horizontal=1, add=1, at=-2*yz/3,
boxwex=1.5*yz, bty="n", axes=FALSE)
  points(q[4], -2*yz/3, col=1, pch="+", cex=.5)

  dev.off()



 --- Prof Brian Ripley <ripley at stats.ox.ac.uk>
escreveu: 
> Time for a completely reproducible example a la the
> posting guide.
> 
> Plese show us _exactly_ what you did that does not
> work for you: your
> original posting did not have lwd in the example.
> 
> 
> On Thu, 17 Feb 2005, Cézar Freitas wrote:
> 
> > Thank you so much, but the commands in par doesn't
> > affect the pictures generated by postscript.
> > For example, I put lwd=3, and the postscript file
> is
> > the same, using par(lwd=3) or par(lwd=.5)...
> >
> > --- Uwe Ligges <ligges at statistik.uni-dortmund.de>
> > escreveu:
> >> Cézar Freitas wrote:
> >>
> >>> I tested in R versions 1.8.1 and 2, but doesn't
> >> works.
> >>> The attached plots can explain this. And mar
> isn't
> >> a
> >>> parameter to postscript command. If I use in
> par,
> >> it
> >>> doesn't affect the outpu.
> >>
> >> It does in R-2.0.1!!! Please try out what poeple
> are
> >> suggesting!
> >> You have to set par() for the current device, so
> >> after your call to
> >> postscript, as I have indicated below.
> >>
> >> Uwe Ligges
> >>
> >>
> >>
> >>
> >>>
> >>> Thanks,
> >>> C.
> >>>
> >>>  --- Uwe Ligges
> <ligges at statistik.uni-dortmund.de>
> >>> escreveu:
> >>>
> >>>> Cézar Freitas wrote:
> >>>>
> >>>>
> >>>>> Hi all.
> >>>>> I'm working with a short plot (3x3 inches),
> but
> >>>>
> >>>> the
> >>>>
> >>>>> results (via postscript command) are not nice.
> >> The
> >>>>
> >>>> lwd
> >>>>
> >>>>> command don't affect the lines (that are very
> >>>>
> >>>> large)
> >>>>
> >>>>> and the margins don't change using oma, mai,
> mar,
> >>>>
> >>>> ...
> >>>>
> >>>>> Below I put an example. Moreover, save the
> >>>>
> >>>> graphics
> >>>>
> >>>>> via postscript command isn't working well (see
> >> the
> >>>>> attached ps).
> >>>>> Thanks by the help,
> >>>>
> >>>>
> >>>> Setting lwd=0.5 works for me, as well as using
> >>>> par(mar=c(....))
> >>>>
> >>>>
> >>>>
> >>>>
> >>>>> Cezar Freitas.
> >>>>>
> >>>>> #Example:
> >>>>> #data
> >>>>>  scores<-c(2.0, 0.0, 5.0, 5.0, 5.0, 2.0, 0.0,
> >>>>
> >>>> 5.0,
> >>>>
> >>>>> 2.5, 4.0, 5.0, 0.0, 5.0, 0.0, 2.0, 5.0, 5.0,
> 2.0,
> >>>>
> >>>> 3.0,
> >>>>
> >>>>> 3.0)
> >>>>>  q<-summary(scores)
> >>>>>  gra<-hist(scores, breaks=((0:11)/2-.2),
> >>>>
> >>>> plot=FALSE)
> >>>>
> >>>>>  yy<-ceiling(max(gra$counts)/10)*10
> >>>>>  yz<-yy/12
> >>>>>
> >>>>> #plot via postscript
> >>>>>  postscript("test.ps", width=3, height=3,
> >>>>> horizontal=FALSE, family="Times",
> >> paper="special")
> >>>>
> >>>> par(mar=rep(1,4)+.1, lwd=0.5)
> >>>>
> >>>>
> >>>>
> >>>>>  hist(scores, breaks=((0:11)/2-.2),
> >> xlim=c(-1,6),
> >>>>> ylim=c(-yz,yy), main="scores", ylab="Freq",
> >>>>> xlab="math", cex.axis=.3, cex.main=.3,
> >> cex.sub=.3,
> >>>>> cex.lab=.3, mgp=c(1.5,.5,0))
> >>>>
> >>>> add lwd=0.5
> >>>>
> >>>> Uwe Ligges
> >>>>
> >>>>
> >>>>>  boxplot(scores, horizontal=1, add=1,
> >> at=-2*yz/3,
> >>>>> boxwex=1.5*yz, bty="n", axes=FALSE)
> >>>>>  points(q[4], -2*yz/3, col=1, pch="+", cex=.5)
> >>>>>
> >>>>>  dev.off()
> 
> -- 
> Brian D. Ripley,                 
> ripley at 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
> 272866 (PA)
> Oxford OX1 3TG, UK                Fax:  +44 1865
272595 


	
	
		
_______________________________________________________ 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: via_postscript.ps
Type: application/postscript
Size: 6629 bytes
Desc: via_postscript.ps
Url : https://stat.ethz.ch/pipermail/r-help/attachments/20050217/3b6f5910/via_postscript.ps
-------------- next part --------------
A non-text attachment was scrubbed...
Name: via_R.ps
Type: application/postscript
Size: 32555 bytes
Desc: via_R.ps
Url : https://stat.ethz.ch/pipermail/r-help/attachments/20050217/3b6f5910/via_R.ps