[r] R에서 라텍스 테이블을 만들기위한 도구 [닫기]

여기에 공유 할 xtable과 Latex의 흥미로운 ‘기능’에 대한 몇 가지 트릭과 해결 방법이 있습니다.

트릭 # 1 : 열 및 트릭 # 2에서 중복 제거 : 북탭 사용

먼저 패키지를로드하고 깨끗한 기능을 정의하십시오.

<<label=first, include=FALSE, echo=FALSE>>=
    library(xtable)
    library(plyr)

    cleanf <- function(x){
        oldx <- c(FALSE, x[-1]==x[-length(x)])
        # is the value equal to the previous?
        res <- x
        res[oldx] <- NA
        return(res)} 

이제 가짜 데이터를 생성하십시오.

data<-data.frame(animal=sample(c("elephant", "dog", "cat", "fish", "snake"), 100,replace=TRUE),
            colour=sample(c("red", "blue", "green", "yellow"), 100,replace=TRUE),
            size=rnorm(100,mean=500, sd=150),
            age=rlnorm(100, meanlog=3, sdlog=0.5))

    #generate a table
    datatable<-ddply(data, .(animal, colour), function(df) {
                return(data.frame(size=mean(df$size), age=mean(df$age)))
            })

이제 테이블을 생성하고 clean 함수를 사용하여 레이블 열에서 중복 항목을 제거 할 수 있습니다.

cleandata<-datatable
cleandata$animal<-cleanf(cleandata$animal)
cleandata$colour<-cleanf(cleandata$colour)
@ 

이것은 정상적인 xtable입니다

<<label=normal, results=tex, echo=FALSE>>=
print(
    xtable(
        datatable
        ),
        tabular.environment='longtable',
        latex.environments=c("center"),
        floating=FALSE,
        include.rownames=FALSE
    )
@ 

이것은 커스텀 함수가 NA로 복제 된 일반적인 xtable입니다.

<<label=cleandata, results=tex, echo=FALSE>>=
print(
    xtable(
        cleandata
        ),
        tabular.environment='longtable',
        latex.environments=c("center"),
        floating=FALSE,
        include.rownames=FALSE
    )
@ 

이 테이블은 북탭 패키지를 사용하며 헤더에 \ usepackage {booktabs}가 필요합니다.

\begin{table}[!h]
        \centering
        \caption{table using booktabs.}
        \label{tab:mytable}
<<label=booktabs, echo=F,results=tex>>=
            mat <- xtable(cleandata,digits=rep(2,ncol(cleandata)+1))
            foo<-0:(length(mat$animal))
            bar<-foo[!is.na(mat$animal)]
            print(mat,
                  sanitize.text.function = function(x){x},
                  floating=FALSE,
                  include.rownames=FALSE,
                  hline.after=NULL,
                  add.to.row=list(pos=list(-1,bar,nrow(mat)),
                  command=c("\\toprule ", "\\midrule ", "\\bottomrule ")))
  #could extend this with \cmidrule to have a partial line over
  #a sub category column and \addlinespace to add space before a total row
@ 

답변

library(datasets)
library(taRifx)
library(xtable)

test.by <- bytable(ChickWeight$weight, list( ChickWeight$Chick, ChickWeight$Diet) )
colnames(test.by) <- c('Diet','Chick','Mean Weight')
print(latex.table.by(test.by), include.rownames = FALSE, include.colnames = TRUE, sanitize.text.function = force)
#   then add \usepackage{multirow} to the preamble of your LaTeX document
#   for longtable support, add ,tabular.environment='longtable' to the print command (plus add in ,floating=FALSE), then \usepackage{longtable} to the LaTeX preamble

moredata<-data.frame(Nominal=c(1:5), n=rep(5,5),
        MeanLinBias=signif(rnorm(5, mean=0, sd=10), digits=4),
        LinCI=paste("(",signif(rnorm(5,mean=-2, sd=5), digits=4),
                ", ", signif(rnorm(5, mean=2, sd=5), digits=4),")",sep=""),
        MeanQuadBias=signif(rnorm(5, mean=0, sd=10), digits=4),
        QuadCI=paste("(",signif(rnorm(5,mean=-2, sd=5), digits=4),
                ", ", signif(rnorm(5, mean=2, sd=5), digits=4),")",sep=""))

names(moredata)<-c("Nominal", "n","Linear Model \nBias","Linear \nCI", "Quadratic Model \nBias", "Quadratic \nCI")

<<label=multilinetable, results=tex, echo=FALSE>>=
foo<-xtable(moredata)
align(foo) <- c( rep('c',3),'p{1.8in}','p{2in}','p{1.8in}','p{2in}' )
print(foo,
            floating=FALSE,
            include.rownames=FALSE,
            sanitize.text.function = function(str) {
                str<-gsub("\n","\\\\", str, fixed=TRUE)

                return(str)
            },
            sanitize.colnames.function = function(str) {
                str<-c("Nominal", "n","\\centering Linear Model\\\\ \\% Bias","\\centering Linear \\\\ 95\\%CI", "\\centering Quadratic Model\\\\ \\%Bias", "\\centering Quadratic \\\\ 95\\%CI \\tabularnewline")
                return(str)
            })
@