Re: [R] RE How to convert an ftable object to a matrix including the row names?

From: Marius Hofert <m_hofert_at_web.de>
Date: Fri, 27 May 2011 17:44:19 +0200

Okay, great, thanks :-)

Marius

On 2011-05-27, at 10:56 , david.hajage_at_curie.net wrote:

>
> Hi,
>
> Is this what you want ?
>
> ft <- ftable(Titanic, row.vars=1:3)
> xtable(format(ft))
>
> Best,
>
> david
>
>
> Marius Hofert <m_hofert_at_web.de>
> Envoyé par : r-help-bounces_at_r-project.org
> 27/05/2011 07:41
>
> A
> Help R <r-help_at_stat.math.ethz.ch>
> cc
> Objet
> [R] How to convert an ftable object to a matrix including the row names?
>
>
>
>
>
> Dear expeRts,
>
> What's the easiest way to convert an ftable object to a matrix such that the
> row names of the ftable object are shown in the first couple of columns of the
> matrix? This is (typically) required, for example, when the final goal is to print
> the matrix via xtable.
>
> Below is a rather complicated example of how to do it...
>
> Cheers,
>
> Marius
>
> ## Goal: convert an ftable() to a (character) matrix including the row names of
> ## the ftable object as columns in the matrix (so that the matrix can be
> ## nicely printed with xtable() for example)
> (ft <- ftable(Titanic, row.vars=1:3)) # ftable object
> rn <- attr(ft, "row.vars") # pick out rownames
> rn. <- rn[length(rn):1] # unfortunately, we have to (?) change the order due to expand.grid()
> g <- expand.grid(rn.) # build the 3 columns containing the row names
> (g. <- g[,length(rn):1]) # change order back; now contains the same row names as ft
> (ft.mat <- as.matrix(ft)) # convert ftable object to a matrix
> ## now, cbind g. and ft.mat
> cbind(g., ft.mat) # => now the rownames are there twice! ... although dim(ft.mat)==c(16, *2*)
> ## class(g.) => okay, probably we meant:
> (res <- cbind(as.matrix(g.), ft.mat))
> require(xtable)
> xtable(res)
> ______________________________________________
> R-help_at_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.
>
>
> L'intégrité de ce message n'étant pas assurée sur Internet, l'Institut Curie ne peut être tenu responsable de son contenu.
> Si vous n'êtes pas destinataire de ce message confidentiel, merci de le détruire et d'avertir immédiatement l'expéditeur.
> Afin de contribuer au respect de l'environnement, merci de n'imprimer ce mail qu'en cas de nécessité.



R-help_at_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. Received on Fri 27 May 2011 - 15:47:06 GMT

This quarter's messages: by month, or sorted: [ by date ] [ by thread ] [ by subject ] [ by author ]

All messages

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Fri 27 May 2011 - 15:50:10 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive