[R] One pdf file with plots and text output
Rainer M Krug
Rainer+R-help at krugs.de
Wed Oct 17 15:54:34 CEST 2007
Dirk Eddelbuettel wrote:
> On 17 October 2007 at 10:44, Rainer M Krug wrote:
> | I create one pdf file with plots via pdf() and one text file with text
> | via sink() that works very nice. But I would prefer to have one pdf file
> | with plots and the text which I store in the te=xt file via sink(). I.e.
> | x.lm<-lm(...)
> | pdf()
> | plot(x.lm)
> | NOW THE TEXT OF summary(xlm) IN THE PDF FILE
> | dev.off()
> | Is this possible or is there a different format which I could use?
> Yes -- using textplot() from the gplots package. Cut & paste from its
> ### Make a nice 4 way display with two plots and two text summaries
> plot( Sepal.Length ~ Species, data=iris, border="blue", col="cyan",
> main="Boxplot of Sepal Length by Species" )
> plotmeans( Sepal.Length ~ Species, data=iris, barwidth=2, connect=FALSE,
> main="Means and 95% Confidence Intervals\nof Sepal Length by Species")
> info <- sapply( split(iris$Sepal.Length, iris$Species),
> function(x) round(c(Mean=mean(x), SD=sd(x), N=gdata::nobs(x)),2) )
> textplot( info, valign="top" )
> title("Sepal Length by Species")
> reg <- lm( Sepal.Length ~ Species, data=iris )
> textplot( capture.output(summary(reg)), valign="top")
> title("Regression of Sepal Length by Species")
> So textplot(capture.output(summary(xlm)) may become be your new best friend.
That's exactly what I was looking for - thanks a lot.
> Hth, Dirk
More information about the R-help