我使用knitr
和pander
,使一个表中的降价文件。 我使用Pandoc从内R.降价文件转换为PDF
此代码:
library(knitr)
```{r myTable, echo=FALSE, message=FALSE, results='asis', comment=""}
library(pander)
pandoc.table(head(iris))
```
然后运行R内部此功能:
knitsPDF <- function(name) {
knit(paste0(name, ".Rmd"), encoding = "utf-8")
callformat <-"pandoc -V geometry:margin=1in %s.md -o %s.pdf"
system(sprintf(callformat, name, name))
}
knitsPDF(name) # insert file name of .Rmd file
产生此表在PDF文件中:
我怎样才能1.减少列的宽度在表中? 2.减少表中的字体大小?
如果你不想拆表为基于其宽度多个部分,则可以直接指定split.tables
与参数pandoc.table
或者更一般在table.split.table
在panderOptions
。 例如:
> pandoc.table(head(iris), split.table = Inf)
-------------------------------------------------------------------
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
-------------- ------------- -------------- ------------- ---------
5.1 3.5 1.4 0.2 setosa
4.9 3 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa
-------------------------------------------------------------------
> panderOptions('table.split.table', 300)
> pander(head(iris))
-------------------------------------------------------------------
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
-------------- ------------- -------------- ------------- ---------
5.1 3.5 1.4 0.2 setosa
4.9 3 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa
-------------------------------------------------------------------
关于字号:Pandoc的降价不具备任何特殊的语法,所以你可能会使用LaTeX的标记为您的PDF。 例如,只是发出一个\footnotesize
你的表之前指令。 请参阅可能的字体大小的更多详细信息: http://en.wikibooks.org/wiki/LaTeX/Fonts#Sizing_text
可以更改在奉迎特定细胞,并且因此整个表的字体大小,但作为一种替代方法使用胶乳代码。
当你的电池,如果数据填充你的是“770”旁边的“731258 $”填充另一个单元格,如果通过更换一次电池paste0("\\scriptsize", "770")
你的输出会看起来像是这样的:
你可以看到,在“770”是用较小的字体。 你可以用任何乳胶字体标签做到这一点。