R到LaTeX - 使用xtable生成带有换行的长表

Question

我有一个包含大量行（90）的表，每个表都包含一个名称，一个定义和另一个文本列。 我试图输出到乳胶，这样跨越多页，也适合页面宽度。

library("xtable")
glossary2<-data.frame(names=letters[1:4],definition=c("very long long long text","very long long long long long text","very long long long long long long text","very long long long text"),include=c(NA,"YES",NA,"NO"))
glossaryprint<-xtable(glossary2,label="tab:codebook",caption="glossary")

继xtable文档之后，我已经能够生成以下内容

使其适合页面宽度：

align(glossaryprint)<-"lXXX"
print(glossaryprint,tabular.environment="tabularx",width="\\textwidth")

使其适合多个页面：

print(glossaryprint,tabular.environment="longtable",floating=FALSE)

然而，结合这两种技术给我带来了困难。 我想我可能不得不把表分成20行的表格并使用tabularx，但这很笨重，而且很多重复的代码。

当使用R函数输出到Latex时，是否有人能够建议一种方法使一个长表适合页面宽度和列内部的线包裹？

Answer 1

将这个开放给更优雅的解决方案，但......

添加此行允许对列宽进行硬编码

library("xtable")
glossary2 <- data.frame(names=letters[1:4], definition=c("very long long long text","very long long long long long text","very long long long long long long text","very long long long text"), include=c(NA,"YES",NA,"NO"))
glossaryprint <- xtable(glossary2, label="tab:codebook", caption="glossary")

align(glossaryprint) <- "lp{2in}p{3in}p{1in}" #here is the change
print(glossaryprint, tabular.environment="longtable", floating=FALSE)