I usually use the
write.table()
function (with tab as the delimiter) to write to
a text file, then copy/paste into Word,
then use Word's convert text to table command.
Obviously, if one needs to do this for many,
many, tables, the amount of manual manipulation
is excessive. That's when products other than
Word become better choices. (Framemaker, LaTeX
come to mind)
-Don
At 4:30 PM +0100 2/15/08, [EMAIL PROTECTED] wrote:
># Dear list,
># I am an R-beginner and
># spent the last days looking for a method to insert tables produced
># with R into a word document. I thought about SPPS: copy a table from
># an SPO-file and paste it into a word document
># (if needed do some formatting with that table).
># Annother idea was, to produce a TEX-file,
># insert it and make it a word-table.
>
># I found the following libraries, which seemed to be promising:
># xtable
># prettyR
># R2HTML
># Hmisc
># SciViews / svViews
>
>
>
>#######################################################################
>## My example: a crosstable (made with CrossTable from lib gmodels ####
>#######################################################################
>
>library(gmodels)
>library(xtable)
>library(svViews)
>
># Data for crosstabulation
>set.seed(1)
>n <- 200
>sex <- sample(c("f","m"),n,T)
>state <- sample(c("AL","AK","CA"),n,T)
>
>#Create crosstab
>ct <- CrossTable(state, sex, expected=TRUE, format="SPSS", digits=1)
>ct #display crosstab on screen
>
>#Trie to produce a html file
>xtable(ct) #Error message: No method!
>methods(xtable)
>
>
>
>#Try to create a rich formatted table and insert it into Word
>#with svViws, but only a little part of crosstab it inserted
>
>docdir <- "r:\\r"
>WordOpen(file.path(docdir, "cross.doc"))
>viewfile <- view(ct, type = "summary", browse = FALSE)
>WordGoto("ctview")
>WordInsertFile(viewfile, TRUE) #only a little part of crosstab inserted
>WordActivate(async = TRUE)
>
>
>#How could I create the latex-code for the crosstable?
>w <- latex(ct) #would that work?
>
># I could not test this, because I didn´t install Miktex yet
># (I will do this soon)
>
>Can someone help me?
>
>Thanks in advance
>Udo
>
>
>------------------------------
>Udo Koenig
>Clinic for child and adolescent psychiatry
>University of Marburg / Germany
>
>______________________________________________
>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.
--
--------------------------------------
Don MacQueen
Environmental Protection Department
Lawrence Livermore National Laboratory
Livermore, CA, USA
925-423-1062
______________________________________________
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.
