R 함수 tabular() 및 latex()에서 생성된 테이블 크기 제어

Question

tables의 패키지를 사용하고 있으므로 R를 사용해야 합니다 Sweave. 다음은 .Rnw귀하에게 적합한 파일 입니다 . 나는 에 대한 배경 지식이 별로 없습니다 R. 저는 단지 몇 가지 기본적인 통계 계산에만 사용합니다. 그래서 명령어를 이용하여 테이블의 크기를 설정할 수 있는지에 대해 확실한 답변을 드릴 수 없는 점 죄송합니다 latex(). 그것이 유일한 선택이었다면, 나는 직접 물어보는 것을 제안할 것입니다교차검증됨.

이것을 다른 이름으로 저장 foobar.Rnw하고 작업 디렉토리에 넣으십시오. 이제 R에서 setwd()(아직 설정하지 않은 경우)을 사용하여 작업 디렉터리를 설정합니다 . 이제 실행

Sweave("foobar.Rnw")

이 작업에 성공했다면 다음을 확인해야 합니다.

You can now run (pdf)latex on ‘tableprosweave.tex’

마지막에.

이제 작업 디렉토리에서 foobar.tex선호하는 TeX 편집기를 열고 실행하거나 pdflatex그냥 실행하세요.

pdflatex foobar

터미널/명령줄에서.

foobar.Rnw:

\documentclass{article}

\usepackage{Sweave}
\usepackage{booktabs}

\begin{document}
\SweaveOpts{concordance=TRUE, keep.source=TRUE}
<<echo=false>>=
options(width=60)
@

<<>>=
require(tables)
require(Hmisc)

booktabs() % To use booktabs formatting

# Create sample data
Condition <- factor(rep(c("Control", "Experimental"), 150))
Time <- factor(rep(c("Baseline", "Baseline", "Three days", "Three days", 
   "Three weeks", "Three weeks"), 50))
var1 <- rnorm(300)
var2 <- rnorm(300)
var3 <- rnorm(300)
var4 <- rnorm(300)
var5 <- rnorm(300)
var6 <- rnorm(300)

# Add to data frame, sprinkle in missing values
d <- data.frame(Condition, Time, var1, var2, var3, var4, var5, var6)
d[sample(1:300, 30), c("var1", "var2", "var3", "var4")] <- NA
d[sample(1:300, 20), c("var5", "var6")] <- NA

# Create helper functions
mean.narm <- function(x) mean(x, na.rm = TRUE)
sd.narm <- function(x) sd(x, na.rm = TRUE)
count.obs <- function(x) sum(!is.na(x))
# Use tabular() from tables

tab <- tabular((Heading("Variable 1") * var1 + Heading("Variable 2") * var2 + 
   Heading("Variable 3") * var3 + Heading("Variable 4") * var4 + Heading("Variable 5") * var5 + 
   Heading("Variable 6") * var6) * Time ~ Condition * ((N=count.obs) + (Mean=mean.narm) + (SD=sd.narm)),
           data = d)
@

\newpage

% Here, \small was written just before the code chunk.

\begin{center}
\small
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}

\vfill

% Here, \scriptsize was written just before the code chunk.

\begin{center}
\scriptsize
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}

%<<>>=
%# Ensure that pdflatex is used when I call latex(), below
%options(latexcmd = "pdflatex")
%options(dviExtension = "pdf")
%options(xdvicmd = "C:/PROGRA~1/R/R-215~1.3/bin/i386/open.exe")
%# Use the latex() function
%#latex(tab, file="table1.tex")
%@

\end{document}

나는 마지막 줄이 무엇을 하는지, 내 컴퓨터에서 파일을 컴파일할 수 있는지 잘 모르기 때문에 주석 처리했습니다. :-)다음은 두 번째 페이지 출력입니다.

여기에 이미지 설명을 입력하세요

실제로 테이블 출력 바로 뒤에 있는 경우 코드 청크 앞에 \small또는 등을 쓰는 것이 좋습니다 . 다시 말하지만, 의 기능 \footnotesize만으로 이 작업을 수행하는 방법을 모르겠습니다 . 보다latex()Rmanual에 대한 자세한 내용은 Sweave.

.Rnw일부 편집기에서는 다음과 같은 소스에서 직접 편집하고 컴파일할 수 있습니다 .알스튜디오. AFAIK,Texmaker처리할 수도 있습니다.

Answer 1