Fwd: Gerar tabela pelo comando latex ( tabular ) a partir de 2 colunas de fatores pertencentes a um dataframe
Prezados, Vi a sugestão de gerar tabelas no markdown a partir do comando função Hmisc::latex() e li a documentação do pacote. Não localizei muitos exemplos para adaptar, apesar da documentação extensa ainda não consegui gerar a tabela da maneira que desejo que é mais ou menos assim: Segue abaixo CRM do que eu consegui fazer e os arquivos dos dados nos links --- title: "tabela" output: pdf_document --- ```{r, include=F} #--------------------------------------------------------- # Preparo da sessao pkg <- c( "Hmisc", "reshape", "plyr", "tables", "gmodels", "xtable") sapply(pkg, require, character.only = TRUE) #------------------------------------------------------------ # lendo os dados da <- read.csv("D:/data.csv", sep =";") #------------------------------------------------------------ # reordenando fatores da$escopai <- factor(da$escopai, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) da$escomae <- factor(da$escomae, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) ``` Tabela de escolaridade dos genitores ```{r, echo=FALSE, results='asis'} latex (tabular ( (Factor(escopai, "Níveis de escolaridade")) ~ (Factor(escopai, "Pai")) + (Factor(escomae, "Mãe") ), data=da )) ``` _________________________________________________ Gostaria também saber como colocar aquelas famosas notinhas de rodapé em letrinhas miúdas no final da tabela e se alguem conseguir um modelo de outra tabela que inclua uma coluna de porcentagem para cada coluna de dados links: https://dl.dropboxusercontent.com/u/64332051/data.csv https://dl.dropboxusercontent.com/u/64332051/tabela.Rmd Saudações cordiais, André Rutz
André, Seu CMR fica reproduzível quando você instrui como carregar o dados pragramaticamente, usando o link. Para obter aquela a tabela do screenshot não foi preciso usar o pacote "tables", embora acredito que sera possível com ele. Sobre as notas de rodapé, não tem como (pelo menos não sei) fazer com markdown. Se você está usando markdown para produzir documentos exclusivamente em pdf passando por Latex, então você pode usar Latex pleno no meio do texto, tomando os devidos cuidados quando o texto está dentro de data.frames ou saídas do R (duplo contra barra, usar "asis", etc). Para mais sobre rodapé em table procure similares à "latex table footnotes". ```{r, results="asis", echo=FALSE, message=FALSE} url <- "https://dl.dropboxusercontent.com/u/64332051/data.csv" da <- read.table(url, header=TRUE, sep=";", encoding="latin1") library(xtable) options(xtable.comment=FALSE) xtable(apply(da, MARGIN=2, table)) ``` ```{r, results="asis", echo=FALSE, message=FALSE} a <- as.data.frame(apply(da, MARGIN=2, table)) a <- cbind(rownames(a), a) names(a) <- c("Nível de escolaridade", "Pai", "Mãe") print(xtable(a, align="cccc"), include.rownames=FALSE) ``` ```{r, results="asis", echo=FALSE, message=FALSE} names(a) <- c("Nível de escolaridade", "Pai", "Mãe\\footnotemark") print(xtable(a, align="cccc"), include.rownames=FALSE, sanitize.colnames.function=function(x){x}) cat("\\footnotetext{Rodapé da tabela na página.}") ``` À disposição. Walmes.
Valeu por mais essa! Chegando em casa vou por pra rodar. Abs Em 03/11/2015 12:17, "Walmes Zeviani" <walmeszeviani@gmail.com> escreveu:
André,
Seu CMR fica reproduzível quando você instrui como carregar o dados pragramaticamente, usando o link. Para obter aquela a tabela do screenshot não foi preciso usar o pacote "tables", embora acredito que sera possível com ele. Sobre as notas de rodapé, não tem como (pelo menos não sei) fazer com markdown. Se você está usando markdown para produzir documentos exclusivamente em pdf passando por Latex, então você pode usar Latex pleno no meio do texto, tomando os devidos cuidados quando o texto está dentro de data.frames ou saídas do R (duplo contra barra, usar "asis", etc). Para mais sobre rodapé em table procure similares à "latex table footnotes".
```{r, results="asis", echo=FALSE, message=FALSE} url <- "https://dl.dropboxusercontent.com/u/64332051/data.csv" da <- read.table(url, header=TRUE, sep=";", encoding="latin1")
library(xtable) options(xtable.comment=FALSE)
xtable(apply(da, MARGIN=2, table))
```
```{r, results="asis", echo=FALSE, message=FALSE} a <- as.data.frame(apply(da, MARGIN=2, table)) a <- cbind(rownames(a), a) names(a) <- c("Nível de escolaridade", "Pai", "Mãe") print(xtable(a, align="cccc"), include.rownames=FALSE)
```
```{r, results="asis", echo=FALSE, message=FALSE} names(a) <- c("Nível de escolaridade", "Pai", "Mãe\\footnotemark") print(xtable(a, align="cccc"), include.rownames=FALSE, sanitize.colnames.function=function(x){x}) cat("\\footnotetext{Rodapé da tabela na página.}")
```
À disposição. Walmes.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
participantes (2)
-
André Figueiras Rutz -
Walmes Zeviani