相关疑难解决方法(0)

使用Rstudio和knitr以pdf格式生成乳胶表,如何使宽表适合页面？我基本上都在寻找缩小表格的方法.

使用数字,在Knitr中使用out.width =非常容易,但是使用表格我似乎无法找到方法.

有什么建议？

\documentclass{article}

\begin{document}

下表太宽,不适合pdf.我希望有一种简单的方法可以缩小它们以适应它们.在这个例子中,我使用了从xtable(),stargazer()和latex()函数生成的表.

<<message=FALSE>>=
library(xtable)
library(stargazer)
library(Hmisc)
library(tables)
wide.df <- cbind(iris[1:10,],iris[1:10,],iris[1:10,])

@



<<results='asis'>>=
xtable(wide.df)
@


<<results='asis'>>=
stargazer(wide.df,summary=FALSE)
@


<<results='asis'>>=
latex( tabular( Species ~  (Sepal.Length +Sepal.Length +  Sepal.Width +   Petal.Length  +  Petal.Width  )*(mean + sd + mean + mean )          , data=iris)            )

@




\end{document}

遵循Stat-R的建议我尝试使用resizebox但无法使其工作:

\documentclass{article}
\usepackage{graphicx}
\begin{document}

我试过使用reshapebox,但我真的对如何让它在Rstudio/knitr中工作毫无头绪:

<<message=FALSE>>=
library(xtable)
wide.df <- cbind(iris[1:10,],iris[1:10,],iris[1:10,])
@

\resizebox{0.75\textwidth}{!}{%
<<results='asis'>>=
xtable(wide.df)
@
%}

\end{document}

我收到此错误:

! File ended while scanning use of \Gscale@box@dd.


sessioninfo()

R version 3.0.0 (2013-04-03)
Platform: …

我是knitr的新手,过去我有一些非常基本的乳胶知识,所以我搜索已经希望找到一个已经发布到某处的解决方案.但是,我无法解决我的问题.我希望有人能够提供帮助.

我有一个14列和多行的数据框,比方说60.使用数据我需要以横向布局生成PDF报告,并将此数据框作为表格呈现在那里.

我找到的最接近的解决方案是 tex.stackexchange.com:LaTex Longtable跨越多个页面

我在那里使用了一些提示.但是,表格放置不正确.最右边的列在页面的右边缘被截断.该表在页面末尾没有"续"字.我在这里发布我的代码和图片.

我正在寻找一个解决方案,将长桌正确放在页面上,如果我遗漏任何明显的请不要拍:)我真的很新.

\documentclass[a4paper, landscape]{article}
\usepackage[a4paper, margin=1in, hmarginratio=1:1, landscape]{geometry}
\usepackage{longtable}
\usepackage{graphicx}
\usepackage{xcolor}
\definecolor{myblue}{RGB}{24,57,121}
\usepackage{lipsum}
\usepackage{booktabs}
\usepackage{colortbl}
\usepackage{array}
\usepackage{rotating}
\usepackage{fancyhdr}
\pagestyle{fancy}
\fancyhead{}
\fancyfoot{}
\renewcommand{\headrulewidth}{0.5pt}
\setlength\headheight{40mm} 
\begin{document}
\newcolumntype{L}[1]{>{\raggedright\arraybackslash}p{#1}}
\newcolumntype{C}[1]{>{\centering\arraybackslash}p{#1}}
\newcolumntype{R}[1]{>{\raggedleft\arraybackslash}p{#1}}
\renewcommand*{\arraystretch}{1.0}
%
\section{My Long Table}
%\begin{center}
%\begin{small}
%\setlongtables
%\begin{longtable}
<<echo=FALSE, eval=TRUE, results='asis'>>=
library(knitr)
library(xtable)
df <- data.frame(replicate(13, sample(1000000:9000000, 60,replace=TRUE)))
df$Sum <- rowSums(df)
totals <- colSums(df)
df <- rbind(df, totals)
names(df) <- c("Jan 2014", "Feb 2014", "Mar 2014", "Apr 2014", "May  2014", "Jun 2014", "Jul 2014",
            "Aug 2014", "Sep …