Using Greg's idea about the capture.output() function, I got this example 
to work in R for Windows.

x <- 1:20
y <- rnorm(20)
fit <- lm(y ~ x)

smry <- capture.output(summary(fit))
smry2 <- paste(smry, collapse="\n")

par(oma=c(10, 0, 0, 0))
plot(x, y)
mtext(side=1, outer=TRUE, text=smry2, cex=0.75, line=9, adj=0, 
family="mono") 

Jean


`·.,,  ><(((º>   `·.,,  ><(((º>   `·.,,  ><(((º>

Jean V. Adams
Statistician
U.S. Geological Survey
Great Lakes Science Center
223 East Steinfest Road
Antigo, WI 54409  USA



From:
Greg Snow <greg.s...@imail.org>
To:
Aram Fingal <fin...@multifactorial.com>, "r-help@r-project.org" 
<r-help@r-project.org>
Date:
08/05/2011 02:40 PM
Subject:
Re: [R] Displaying a summary in graphics
Sent by:
r-help-boun...@r-project.org



Use the capture.output function with printing the summary of the anova, 
then pass that to your function.

-- 
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.s...@imail.org
801.408.8111


> -----Original Message-----
> From: r-help-boun...@r-project.org [mailto:r-help-bounces@r-
> project.org] On Behalf Of Aram Fingal
> Sent: Friday, August 05, 2011 1:16 PM
> To: r-help@r-project.org
> Subject: Re: [R] Displaying a summary in graphics
> 
> 
> On Aug 5, 2011, at 1:44 PM, Jean V Adams wrote:
> 
> >
> > A search of the R-help archives may provide some help.
> >
> > See, for example, http://r.789695.n4.nabble.com/including-tabular-
> information-with-a-plot-in-R-Graphics-tt885431.html
> >
> 
> Actually, I already read through those posts and they don't address the
> issue that I am having at all.  The text provided to textplot() and
> addtable2plot() have to already be formatted.  They give the same
> messed up output as mtext() does.   In addition to that, I want the
> summary to appear outside of several other graphics objects, not inside
> of an existing plot.
> 
> There is also a mention of using LaTex to process the graphics but I
> would much rather have an easier solution than that.
>                [[alternative HTML version deleted]]
> 
> ______________________________________________
> 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.

______________________________________________
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.



        [[alternative HTML version deleted]]

______________________________________________
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.

Reply via email to